< návrat zpět

MS Excel


Téma: VBA vyhledat a zapsat rss

Zaslal/a 27.9.2020 21:03

FantasykZdraví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 7

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ěď >

#048153
Stalker
44101 = 27.9.2020citovat
#048154
Fantasyk

Stalker napsal/a:

44101 = 27.9.2020


Ale to datum se meni 7

28.9.2020 je 44102 atd..citovat
#048155
Stalker
A?

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

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 1

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: zip48156_report2020_v2.1.zip (415kB, staženo 3x)
citovat
#048158
avatar
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
#048159
Fantasyk

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: zip48159_report2020_v2.2.zip (429kB, staženo 2x)
citovat
#048160
Stalker
Sheets("STATISTIKA").Cells(RNG.Row, 2).PasteSpecial xlPasteValuescitovat
#048161
Fantasyk

Stalker napsal/a:

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


děkuji 1citovat

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

Oblíbený formulář Faktura byl vylepšen a rozšířen. Formulář faktura III
Více se dočtete zde.

Aktivní diskuse

ZOSKUPENIE ÚDAJOV

Daniel_11 • 29.10. 10:10

kopie mezi instancemi Excelu

rinma • 29.10. 9:44

kopie mezi instancemi Excelu

Stalker • 29.10. 8:44

kopie mezi instancemi Excelu

rinma • 28.10. 19:01

kopie mezi instancemi Excelu

rinma • 28.10. 18:58

den hodina minuta sekunda v jednej bunke

lugr • 28.10. 12:50

Kombinace url odkazů

Petan111 • 28.10. 11:46