Dim Bunka
Set Bunka = Intersect(Columns(1), Target)
If Not Bunka Is Nothing Then
Cells(2, 16).Value2 = LCase$(Replace$(Left$(Bunka.Cells(1).Value2, 11), "/", ""))
Set Bunka = Nothing
End If
End Subcitovat
Zaslal/a fortes 4.5.2017 14:44
do teď jsem ručně zapisoval do buňky "P2" to co chci zpracovat a tak mě napadlo, když kliknu myší na buňku "A?" a aby se automaticky zobrazila zformátovaná data z buňky "a?" dle vzoru v do buňky "P2" vždy bude počet znaků 9.. viz příklad. moc děkuju Martin
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.