Příspěvky uživatele
< návrat zpět
Ahoj, prosím o pomoc s VBA zápisem:
1. projde veškeré listy v sešitě a vždy ve sloupci D zkontroluje, že jsou přítomny pouze dva údaje: jeden z údajů je vždy -- a druhý údaj je libovolné slovo.
2. vyhodí Msg box s potvrzením správnosti, např. stačí OK.
Jde o kontrolu údajů ze staženého reportu. Sešit může obsahovat až 36 listů a je časově náročné projít každý list a přes filtr zkontrolovat, že se ve sloupci nenachází více než dva údaje.
Děkuji za pomoc. Zumi
Lugr napsal/a:
@JoKe
teoreticky stačí toto:
=POČET(B1:D1)
ale on chce makro.
@Zumi
zkus to jednoduše takhle:
Dim wsDATA As Worksheet
Set wsDATA = Worksheets("List1")
SLB = wsDATA.Cells(Rows.Count, "B").End(xlUp).Row
SLC = wsDATA.Cells(Rows.Count, "C").End(xlUp).Row
SLD = wsDATA.Cells(Rows.Count, "D").End(xlUp).Row
RADEK = Application.WorksheetFunction.Max(SLB, SLC, SLD)
wsDATA.Range("A1").Resize(RADEK).Formula = "=IF(COUNT(B2:D2)=0,"""",COUNT(B2:D2))"
wsDATA.Range("A1").Resize(RADEK).Value = wsDATA.Range("A1").Resize(RADEK).Value
MOC DÍKY
JoKe napsal/a:
a nestačí vzorcem
=(--JE.ČISLO(B1))+(--JE.ČISLO(C1))+(--JE.ČISLO(D1))
díky, také využiji
Prosím o radu na zápis makra, který vyhodí ve sloupci A hodnotu 1, 2 nebo 3 na základě toho, zda najde nějaký číselný údaj v jiném sloupci. Tzn. ve sloupcích B, C a D může a nemusí být číslo.
Pokud je číslo jen v jednom ze tří sloupců, do sloupce A se zapíše 1.
Pokud je číslo ve dvou ze tří sloupců, do sloupce A se zapíše 2.
Pokud je číslo ve tří ze tří sloupců, do sloupce A se zapíše 3.
Údaje ve sloupcích musí mít "neomezený-rostoucí" počet řádků.
Moc děkuji.
Uživatelské menu
\nMenu
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.
RSS nejnovější články