VBA.Mania

Dziś jest wtorek, 30 kwietnia 2024 roku.

Powrót do serwisu

Regulamin

RSS

	tytuł wątku:
Wątki dyskusji	Loop który nie zatrzymuje się w zadanym miejscu. otwarty rozpoczął: jamanow postów: 3

napisał: jamanow postów: 69 umieszczony: 10 czerwca 2012 13:07
	Wielkie dzięki, twój kod działa jak zwykle bezbłędnie. Trebor, jesteś moim GURU :)

napisał: Trebor postów: 1209 umieszczony: 9 czerwca 2012 17:16
	Sprawdź poniższy kod: Dim Rng As Range Dim cll As Range Set Rng = Range("E8:E" & Cells(Rows.Count, "E").End(xlUp).Row).Cells.SpecialCells(xlCellTypeBlanks) Rng.FormulaR1C1 = "=R[-1]C" For Each cll In Rng cll.Value = cll.Value Next cll

napisał: jamanow
postów: 69

umieszczony:
8 czerwca 2012
22:52

edytowany:
9 czerwca 2012
09:18

nazwa pliku	rozmiar
1.rar	7.74 kB

Problem mój polega na tym, ze Kod/Loop Zatrzymuje się na ostatnim sformatowanym wierszu. Dążeniem moim jest zęby kod zatrzymał się na ostatnim wierszu w którym kolumna (tak jak w załączniku/arkusz "Bez formatu" E:E zawiera jakąś wartość i pozostał nieczuły na to ze inne kolumny zawierają jakakolwiek wartość lub format

Sub test()

    Dim Rng As Range
    Dim cll As Range

    On Error Resume Next
    Set Rng = Range("E8:E1312").Cells.SpecialCells(xlCellTypeBlanks)
    Do
        Rng.FormulaR1C1 = "=R[-1]C"
    Loop Until cll.Value = "END"

    For Each cll In Rng
        cll.Value = cll.Value
    Next cll

End Sub

wstecz 1 dalej

wszystkich stron: 1