na místo
Rng.Cells(i).Clear
je potřeba zadat
Rng.Cells(i).ClearContents
Tak se zase mějte citovat
Zaslal/a Raders486 22.6.2016 10:32
Ahoj.
Nevím kde dělám chybu, ale potřebuji ve sloupcích A-C najít buňky obsahující "0" a tyto nuly smazat. Nesmí se týkat buněk obsahující text s nulou npř. "10"
Níže uvedený kód však odstraní i ohraničení tabulky.
Poradíte mi porosím?
Děkuji
'Odstarnit nuly
Columns("A:C").Select
Set Rng = Range("A:C")
i = 1
For counter = 1 To Rng.Rows.Count
If Rng.Cells(i) = "0" Then
Rng.Cells(i).Clear
Else
i = i + 1
End If
Next
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.