B1 hücresinde 1 yazıyorsa a1 yücresindeki seri numarasın ve b1 hücrelerini silsin

[acemituncay]

Her ayın yirmisinde b sütünundaki hürcrelerin hangisinde 1 yazıyorsa birin yandındaki a sütünunda yazılı olan yücredeki seri numarasını ve b1 yücrelerini silsin aynı zamanda yücreleri yukarı ötelesin istiyorum.
Arkadaşlar bu benim için çok önemli, nasıl yapabilirim bilemiyorum ekli dosyada örneği var

 

[leumruk]

Selamlar,
B sütununda 1 bulunan hücrelerin bulunduğu satırı mı silmek istiyorsunuz?

 

[Ayhan Ercan]

Merhaba

Aşağıdaki kodu deneyiniz..

Private Sub CommandButton1_Click()
Dim hcr As Range
For Each hcr In Range("B2:B" & [b65536].End(3).Row)
If hcr.Value = 1 Then
hcr.Offset(0, -1).Delete (xlUp)
hcr.Delete (xlUp)
End If
Next
End Sub

 

[acemituncay]

çok teşekkür ederim vakit ayırıp yazdığınız için
yazdığınız kod istediğimi yapıyor.
Yalnız sizden ricam şudur b'deki bire bakıp a'daki seriyi, d'deki bire bakıp c'deki seriyi, f'deki bire bakıp e'deki seriyi her ayın 20'sinde otomatik olarak nasıl sildiririz yardımcı olursanız sevinirim. Iyi akşamlar

 

[acemituncay]

Selamlar,
B sütununda 1 bulunan hücrelerin bulunduğu satırı mı silmek istiyorsunuz?

Private Sub CommandButton1_Click()
Dim hcr As Range
For Each hcr In Range("B2:B" & [b65536].End(3).Row)
If hcr.Value = 1 Then
hcr.Offset(0, -1).Delete (xlUp)
hcr.Delete (xlUp)
End If
Next
End Sub


ARKADAŞLAR SAĞOLSUN YUKARIDAKİ KODU YAZMIŞ İSTEDİĞİMİ YAPIYOR ANCAK

Yalnız sizden ricam şudur b'deki bire bakıp a'daki seriyi, d'deki bire bakıp c'deki seriyi, f'deki bire bakıp e'deki seriyi her ayın 20'sinde otomatik olarak nasıl sildiririz yardımcı olursanız sevinirim. Iyi akşamlar

 

[leumruk]

Sub HücreSil()
b = Mid(Date, 1, 2)
If b = [COLOR="red"]20[/COLOR] Then
Dim hcr As Range
For Each hcr In Range("B2:[COLOR="Red"]F100[/COLOR]")
If hcr.Value = 1 Then
hcr.Offset(0, -1).Delete (xlUp)
hcr.Delete (xlUp)
End If
Next
MsgBox "Silme işlemi gerçekleşti."
End If
End Sub

1 sayılarının bulunduğu sütunlar dışında 1 değerinin yazılmayacağını varsayarak, işlemi F sütununa kadar genişlettim. En son dolu satırın hangisi olacağı belli olmayacağından, son dolu satır kodunu F100 şeklinde tahmini bir satır aralığı yaptım. Bu aralığı kendi gireceğiniz satır sayısına göre ayarlayabilirsiniz.
Her ayın 20'sinde kod çalışacaktır.

 

[acemituncay]

Hocam çok teşekkür ederim bi deneyim nasıl çalışıyor sizlere döneceğim.
Iyi akşamlar sağolun.

"bana bir harf öğretenin kırk yıl kölesi olurum."

 

[leumruk]

Rica ederim. Size de iyi akşamlar.