Makro ile şarta bağlı satır silme

[medsel]

Merhaba arkadaşlar biraz formül bilgim var bir uygulama hazırlıyorum. Örneğini eklediğim dosyada giriş sayfasında girdiğim verileri veri tabanı sayfasına bir buton ile eklemek isitiyorum bu butonla sürekli olarak bu kayıtlar veri tabanına atılacak sorunum şu bu işlemi makro kaydet ile yaparken a sütunundaki boş yazan satırların diğer tarafa geçerken silinmesi yada kayıt yaparken boş yazan satırları hiç seçmemesini istiyorum bunu hangi kod ile yapabilirim bulduğum kodları bir türlü uyarlayamadım yardımcı olacak arkadaşlara şimdiden teşekür ederim.

 

[medsel]

alttaki kodu buldum ama uyarlayamadım

Sub Satir_Sil()
Dim x, i
For i = 1 To 5
For x = 2 To [A65526].End(3).Row Step 1
If Cells(x, 4) Like "*BOŞ*" Then
Rows(x).Delete
End If
Next x
Next i
End Sub

 

[medsel]

yardımlarınızı bekliyorum

 

[ugrkrnfl]

Merhaba,


Sub Satir_Sil()
Dim x As Single
vtr = 1
Application.StatusBar = "Veriler aktarılıyor."
Application.ScreenUpdating = False
Sheets("Giriş").Select
For x = 7 To Cells(65536, 1).End(xlUp).Row
If Cells(x, 1) <> "Dolu" And Cells(x, 1) <> "" Then
Rows(x).Delete
x = x - 1
Else
vtr = vtr + 1 'veri tabanı satır no
For y = 1 To 38
Worksheets("veri tabanı").Cells(vtr, y) = Cells(x, y)
Next y
End If
Next x
Application.ScreenUpdating = True
Application.StatusBar = False
End Sub

 

[ugrkrnfl]

Dosyayı ekledim.

 

[medsel]

hocam maalesef olmadı kod hem giriş sayfasında hemde veri tabanı sayfasında boş yazan satırları siliyor giriş sayfasında 50.satırda kodlarım var o kodlarda siliniyor o zaman giriş sayfasına hiç dokunmadan sadece veri tabanı sayfasında boş yazan satırları silse nasıl kodu güncelleriz

 

[medsel]

Uğur bey konuyu benim yanlış anlatmamdan dolayı başta maalesef olmadı kod hem giriş sayfasında hem de veri tabanı sayfasında boş yazan satırları siliyordu bende kodu böldüm sadece veri tabanı sayfası için uyarladım şimdi tam istediğim gibi oldu çok teşekkür ederim ilginiz için sağolun.