MS Excel

Zdravím,

chtěl bych poprosit o pomoc s makrem na kopírování buněk do jiného sešitu.

Mám zdrojoví sešit kde se dělá řekněme denní zápis a chtěl bych data z něj makrem uložit do měsíčního, cca 5 buněk.

Makro mám rozpracované, ale mám zádrhel ve vyhledání v cílovém souboru data na který řádek se mají data uložit.
Asi neco jako
RadekDatum = Cells.Find(What:=Datum.Row)
nějak se mi nedaří toto zprovoznit

Ve zdrojovém souboru si do proměnné "Datum" z buňky R1 (trimem očistím protože datum se inportuje z papírové podoby a někdy v buňce je i mezera) získám aktuální datum který chci v cílovém souboru vyhledat a na tento řádek data zapsat.

Více snad pomůže příloha kde mám provizorně předvedeno jaký bych chtěl výsledek.

Zaslat odpověď >

Jiří497(5.6.2020 18:23)#046814

Pokud jde o vyhledávání, já používám něco takového. Číslo řádku v kterém je hledané datum pak najdu v "najdi.Row":
Sub najdiNeco()

Dim datum As Date
Dim najdi As Range

datum = "4.6.2020" 'tady načtu proměnnou, kterou hledám

With Worksheets("2020") 'název listu, kde chci hledat

Set najdi = .Cells.Find(datum, LookIn:=xlValues)
If najdi Is Nothing Then 'pokud nic nenajde
prompt = MsgBox("Zadaný údaj nebyl nalezen", vbOKOnly) 'vypíše hlášku
Exit Sub 'a skončí
End If
End With

'pokud něco najde, tak pokračujeme dál.
'Tady napíše, na kterém řádku datum našel.
prompt = MsgBox("Hledané datum je na řádku:" & najdi.Row)
End Sub

Jinak na předělání je tam toho víc.citovat

Jiří497(5.6.2020 19:02)#046815

Tady je to zapracované do vašeho makra. Nejsou kontroly na existenci souboru apod. Kopírování lze dělat také několika způsoby...

Příloha: zip

46815_vykaz.zip (50kB, staženo 33x)

citovat

Nomi(8.6.2020 9:13)#046821

Děkuji moc, chápu že na předělání je toho více, jako amatér jdu cestou pokus omyl a makra dělám pomocí záznamu makra a pak hledání na netu kde se pokouším použít už obdobně řešené makra.

Toto funguje skvěle, úpravu otočeného kopírování Z do Do je už to nejmenší si opravit včetně kontrol přepisu dat toto již vše mám.

Ještě jednou děkujicitovat

Téma: Kopírování buněk do jiného sešitu

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje