• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: VBA vyhledat a zapsat

Zaslal/a Fantasyk 27.9.2020 21:03

Zdravím,
nevím kde stále dělám chybu:
' zápis do STATISTIKY


datumbunka = Range("U2").Value
Sheets("STATISTIKA").Select
Sheets(Active).Cells(47, o).Copy

With Sheets("STATISTIKA").Range("A:A")
Set RNG = .Find(What:=datumbunka)

Sheets("STATISTIKA").Cells(RNG, 2).PasteSpecial xlPasteValues


Sheets(Active).Select
Range("A1").Select
' ukončení zápisu do STATISTIK

Akurát v té buňce U2 je datum a hledá mi to se špatným formátováním

Akurát nechápu, že mi to vyhledá řádek 44101 a do sloupce B zapíše tu hodnotu, kterou nakopíruje

Díky za jakoukoliv radu

Zaslat odpověď >

---

Stalker(27.9.2020 22:04)#048153

44101 = 27.9.2020citovat

Fantasyk(27.9.2020 22:15)#048154

Stalker napsal/a:

44101 = 27.9.2020

Ale to datum se meni

28.9.2020 je 44102 atd..citovat

Stalker(27.9.2020 23:02)#048155

A?

Pokud sem nevložíš vzorový soubor, tak se nikam nepohnem!citovat

Fantasyk(28.9.2020 9:22)#048156

Stalker napsal/a:

A?

Pokud sem nevložíš vzorový soubor, tak se nikam nepohnem!

Ja jsem ho zazipoval dal jsem ho tam, akurát při nahrávání jsem klikl na .xlsm

uz ho tu dávám..

Musí se kliknout na Pridat další den.
a potom na směnu A - tu jsem zatím jen upravil.

EDIT:
hodí to chybu místo i tam dat o
'Target
Sheets("DISORDER_A").Range("J80").Copy
Sheets(Active).Cells(46, o).PasteSpecial xlPasteValues

Příloha: 48156_report2020_v2.1.zip (415kB, staženo 18x)

citovat

Jiří497(28.9.2020 11:31)#048158

Přiznávám, že z toho nejsem vůbec moudrý.
1. Je tam 12 listů a napíšeš" "Akurát v té buňce U2 je datum....." dobrý, ale v kterém listu?
2. "hodí to chybu místo i tam dat o" - tuto větu nechápu vůbec

Toto:
'Target
Sheets("DISORDER_A").Range("J80").Copy
Sheets(Active).Cells(46, o).PasteSpecial xlPasteValues bych nahradil tímto: Sheets(Active).Cells(46, o).Value = Sheets("DISORDER_A").Range("J80") + samozřejmě všechno podobné kopírování.citovat

Fantasyk(28.9.2020 12:14)#048159

Jiří497 napsal/a:

Přiznávám, že z toho nejsem vůbec moudrý.
1. Je tam 12 listů a napíšeš" "Akurát v té buňce U2 je datum....." dobrý, ale v kterém listu?
2. "hodí to chybu místo i tam dat o" - tuto větu nechápu vůbec

Toto:
'Target
Sheets("DISORDER_A").Range("J80").Copy
Sheets(Active).Cells(46, o).PasteSpecial xlPasteValues bych nahradil tímto: Sheets(Active).Cells(46, o).Value = Sheets("DISORDER_A").Range("J80") + samozřejmě všechno podobné kopírování.

Sorry
je tam list VZOR tam kliknout na Přidat další den (vytvoří to aktuální den )
a pak kliknou na směnu A ( je to modul3 )
a to načte data s dalších listů a potom to chci zkopírovat určité data do listu STATISTIKA na požadováný řádek s datem

Příloha: 48159_report2020_v2.2.zip (429kB, staženo 19x)

citovat

Stalker(28.9.2020 16:27)#048160

Sheets("STATISTIKA").Cells(RNG.Row, 2).PasteSpecial xlPasteValuescitovat

Fantasyk(28.9.2020 17:56)#048161

Stalker napsal/a:

Sheets("STATISTIKA").Cells(RNG.Row, 2).PasteSpecial xlPasteValues

děkuji citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

Formulář Faktura

Helios iNuvio

On-line nástroje