Dim tgtRng As Range
If Target.Address = "$B$1" Or Target.Address = "$B$3" Then
Set tgtRng = Sheets("prehled").[B1:M1]
tgtRng.Offset(2, WorksheetFunction.Match([B1], tgtRng, 0) - 1).Resize(1, 1) = [B3]
End If
End Subcitovat
Zaslal/a monti 28.12.2015 8:51
Hezký den.
Potýkám se aktuálně s jedním úkolem evidence v MS Excel a potřebuji pomoci s funkcí/makrem/jiným řešením, jak provést převod výsledku vzorce na číslo pro další použití. Jde mi o fixní řešení, které nebude vázáno na další, v čase dodatečnou, změnu argumentu v podmínce fce Když.
Žádoucí chování je popsáno na prvním listu přiloženého souboru - v příkladu.
Bohužel nemohu provést zcela jiným alternativním způsobem, protože uvedené už je součástí složitější a komplexní evidence, kterou nemohu zcela překopat.
Díky moc za nakopnutí. ;)
Monti
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.