Moc děkuju, funguje to jak má.
Jen jsem musel ještě před
List7.Cells(Cells(1000, 1).End(xlUp).Row, 3).Select
Selection.Cells.Value = "zboží"
List3.Activate
zadat List7.Activate
Moc děkuju, funguje to jak má.
Jen jsem musel ještě před
List7.Cells(Cells(1000, 1).End(xlUp).Row, 3).Select
Selection.Cells.Value = "zboží"
List3.Activate
zadat List7.Activate