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)

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.