Zaslal/a Fantasyk 26.11.2021 21:04
Zdravím,
mám kód:
Dim compld2 As Range
Sheets("SAP").Select
idsearch = Sheets("Data").Range("B7").Text
Set compld2 = Range("B:B").Find(What:=idsearch, LookIn:=xlValues, LookAt:=xlWhole)
compld2.Offset(0, 5).Value2 = CommandButton3.Caption
Unload Me
Funguje správně až na to, že pokud se vyskytuje více compld2 tak to vloží do prvního co najde, ale potřeboval bych, aby to vyhledalo a vlozilo od spodního radku co najde.
dík za jakoukoliv radu
elninoslov napsal/a:
Set compld2 = Range("B:B").Find(What:=idsearch, After:=Range("B1"), LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlPrevious)
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
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.