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

MS Excel

Téma: VBA - kopírování listu na list pomocí datumu

Zaslal/a Dawe007 27.5.2019 8:38

Dobrý den,

prosím o pomoc, snažím se napsat makro, kde pomocí sloupce F, když se objeví datum, tak mě přiřad celý řádek na jiný list. Bohužel mě to píše chybu 1004, kdy metoda Select třídy Range selhala. Prosím Vás moc o pomoc.

Sub Demo()

a = Worksheets("page 1").Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To a

If Cells(i, 6) Like ("**.**.201*") Then Cells(i, 6).NumberFormat = "dd/mm/yyyy"

If Worksheets("page 1").Cells(i, 6).NumberFormat = "dd/mm/yyyy" Then

Worksheets("page 1").Rows(i).Copy
Worksheets("SELGROS").Activate
b = Worksheets("SELGROS").Cells(Rows.Count, 1).End(xlUp).Row
Worksheets("SELGROS").Cells(b + 1, 1).Select
ActiveSheet.Paste
Worksheets("page 1").Activate

End If

Next

Application.CutCopyMode = False

ThisWorkbook.Worksheets("page 1").Cells(1, 1).Select

Sheets("LOADER").Select
Range("F3").Select

MsgBox ("Nahráno")

End Sub

Zaslat odpověď >

---

elninoslov(27.5.2019 8:55)#043423

Mne to chybu nedáva. To neznamená, že je makro správne (nevhodnosť postupu akým makro pracuje teraz neriešim). Priložte prílohu s reálnym príkladom. Citlivé dáta zmente a zredukujte. Ale nemente formáty ani umiestnenia ani názvy listov a pod.citovat

Dawe007(27.5.2019 9:37)#043424

Bohužel mě to nejde připojit na web, poslal jsem Vám to s prominutím na email, zdali by jste se prosím na to nemohl podívat. moc Vám děkuji.citovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse