< návrat zpět
MS Excel
Téma: Prosím o pomoc 
Zaslal/a junis 27.8.2024 17:34
Zdravím. Pánové od fochu, potřeboval bych upravit kód.
Do sloupce 15 se mi vzorcem zapisují data z jiného listu a pokud je ve sloupci 15 nějaká hodnota vyplní buňky vlevo sloupec 11 a 12 (11 vyplní 1 a 12 datum).
Bohužel mi to vymaže předchozí data v jiných řádcích, kde ani ve sloupci 15 nejsou žádná data. Potřebuji to ošetřit tak, aby v případě, že bude nějaká vyplněná hodnota ve sloupci 11-14, tak tento řádek ponechá beze změny, nebo prostě aby si to upravilojen ten řádek, kde je ve sloupci 15 nějaká hodnota (takto to přepíše všechny řádky, reaguje to i na řádky kde je ve sloupci 15 jen vzorec)
Omlouvám se že dávám bez přílohy.
Private Sub Odfiltrovat()
Dim Sledovana_oblast(), Datova_oblast()
Dim i As Long
With wsSouhrn 'Jméno listu
Sledovana_oblast = wsSouhrn.Range("O4:O100003").Value
ReDim Datova_oblast(1 To UBound(Sledovana_oblast), 1 To 2)
For i = LBound(Sledovana_oblast) To UBound(Sledovana_oblast)
If Sledovana_oblast(i, 1) <> "" Then
Datova_oblast(i, 1) = 1
Datova_oblast(i, 2) = Now
End If
Next i
With wsSouhrn.Range("K4")
.Resize(UBound(Datova_oblast, 1), 2).Value = Datova_oblast
End With
End With
Erase Sledovana_oblast
Erase Datova_oblast
End Sub
elninoslov(27.8.2024 18:56)#056792 
Bez skúšania od boku:
Namiesto
ReDim Datova_oblast(1 To UBound(Sledovana_oblast), 1 To 2)
dajte
Datova_oblast = .Range("K4:L100003").Value
With wsSouhrn 'Jméno listu
tam máte zbytočne ak ho nepožijete, takže zmeňte
Sledovana_oblast = wsSouhrn.Range("O4:O100003").Value
na
Sledovana_oblast = .Range("O4:O100003").Value
a
With wsSouhrn.Range("K4")
na
With .Range("K4")citovatjunis(27.8.2024 19:15)#056793 
Elninoslov děkuji, od boku a skvělé. Šlo by ještě datum zarovnat vlevo?
Děkuji moc
citovatelninoslov(27.8.2024 19:58)#056794 To makro žiadne zarovnanie neovplyvňuje. A ani nemusí. To si urobte na tú oblasť L4:L1000003 iba raz manuálne.
citovatjunis(27.8.2024 20:34)#056795 Ok. Děkuji moc jste mi pomohl.
citovat
RSS nejnovější články