[turbine]

#vba #programowanie #pytanie

Potrzebuje gotowy kod w vba ktory sprawdzal by czy komorka A4 jest pusta, jezeli nie jest to kasuje caly wiersz 4 do momentu kiedy komorka A4 bedzie pusta. Jestem laikiem w VBA i juz googluje i nie wiem jak to rozgryzc :/

[zenon_z_chorzowa1]

@turbine: A jaki masz budget? ;)

[zenon_z_chorzowa1]

@turbine: Nigdy nic nie napisałem w vba, ale zakładam ze jeśli is empty zwraca true to delete row powinno zadziałać. https://excelchamps.com/vba/check-empty-cell/?amp

[zenon_z_chorzowa1]

@turbine: https://trumpexcel.com/vba-delete-row-excel/

[zenon_z_chorzowa1]

@turbine: Jak z tych dwóch nie skleisz rozwiązania to #!$%@? programowanie i idź do szkoły ogrodniczej ;)

[turbine]

@zenon_z_chorzowa1: wlasnie musze zrobic na odwrot. jezeli jest text w A4 to kasuje wiersz i stopuje kiedy trafi na pusta komorke. Czyli kasuje wiersze do momentu natrafienia na pusta.

[zenon_z_chorzowa1]

@turbine: No a jak wyglada negacja isempty w vba? Wykrzyknik?

[zenon_z_chorzowa1]

@turbine: Skopiuj treść zadania, bo chyba tam jest literówka. Jeśli skasuje cały wiersz czwarty, to komórka a4 będzie pusta. I zakończy się pętla. Czy ty chcesz iterować po każdej komórce w tym wierszu? I usuwać po komórce aż trafi na pusta?

[zenon_z_chorzowa1]

@turbine: If Not IsEmpty(cell.Value)

[turbine]

@zenon_z_chorzowa1: to nie jest zadanie, tylko chce rozkminic jedna rzecz w moich raportach no i w tych raportach czasami od razu a4 jest puste a czasami cos jest w a4,a5,a6 itd. i chce to usuwac przy pomocy makra.

i tak rozkminiam zeby zrobic jakis kod ktory sprawdza czy a4 jest pelne, jezeli tak to kasuje caly wiersz 4 no i w miejsce wiersza 4 wskakuje to co bylo w wierszu 5,

[turbine]

@zenon_z_chorzowa1: kurka cos zrobielm i chyba dziala, zobacze jak podepne resze kodu, chyba sie wzorowalm na tym co wyzej dales

Sub jezeli()
'
' Macro2 Macro
'
If Range("A4") > 0 Then
Rows(4).EntireRow.Delete

End If

End Sub

ed. a juz wiem musze to jakos zrobic zeby samo kasowalo do momentu az natrafi na pusta komorke bo narazie musze za kazdym razem klikac na makro az usunie wszystko

[zenon_z_chorzowa1]

@turbine: W innych językach w warunku if else jest break który kończy pętle i z niej wychodzi. Nie wiem jak vba.

[turbine]

@zenon_z_chorzowa1: chyba mam :DDD

Do While (Range("A4")) > 0

If Range("A4") > 0 Then
Rows(4).EntireRow.Delete
End If

Loop

[zenon_z_chorzowa1]

@turbine: Protestuj i dawaj na prod!