Soru Hücre içeriğini temizleme koşula göre

[luffy010109]

E sütunundan AJ sütununa kadar olan hucrelerde verilerim var.

AJ sütunun veri değeri "31" ise E den AI ya kadar olan hücrelerin rastgele herhangi birisini içerigini silsin yani boşaltsin istiyorum. Değilse birşey yapmasın Şöyle bir şey yazdım ama devamıni getirmedim
if range ("AJ7") = "31" Then
Range ("E7").Value = ""
Else
End İf

Burda rastgele herhangi bir hücreyi temizlesin hep aynı hücreyi temizlemesin istiyorum
Birde aşağıya doğru liste sonuna kadar bütün satırlarda bu kontrol ve random silme yi yapsın
Nasıl yapabilirim yardımcı olabilirmisiniz.

 

[luffy010109]

Yardımcı olacak kimse yokmu acaba

 

[ÖmerFaruk]

Aşağıdaki kodu ilgili sayfada çalıştırabilirsiniz.
Bazı açıklamaları kod içinde belirttim. Okumanızı tavsiye ederim.

Sub RastgeleSil()
   Row1 = 7 'İlk satırınız
   Row2 = 88 ' Sonsatırınız
   'Eğer A sütununuz veri olan her satırsa dolu ise
   'Row2=88 yerine
   'Row2=Range("A" &Rows.Count).End(3).Row
   'şeklinde kullanabilirsiniz
  
   For i = Row1 To Row2
      If Range("AJ" & i) = 31 Then '31 sayısal bir ifade değil de metin ise "31" şeklinde kullanın.
         KolonNo = WorksheetFunction.RandBetween(5, 35)
         Cells(KolonNo, i) = ""
      End If
   Next i
End Sub

 

[luffy010109]

Aşağıdaki kodu ilgili sayfada çalıştırabilirsiniz.
Bazı açıklamaları kod içinde belirttim. Okumanızı tavsiye ederim.

Sub RastgeleSil()
   Row1 = 7 'İlk satırınız
   Row2 = 88 ' Sonsatırınız
   'Eğer A sütununuz veri olan her satırsa dolu ise
   'Row2=88 yerine
   'Row2=Range("A" &Rows.Count).End(3).Row
   'şeklinde kullanabilirsiniz
 
   For i = Row1 To Row2
      If Range("AJ" & i) = 31 Then '31 sayısal bir ifade değil de metin ise "31" şeklinde kullanın.
         KolonNo = WorksheetFunction.RandBetween(5, 35)
         Cells(KolonNo, i) = ""
      End If
   Next i
End Sub

dosya ekte hocam
her satırdan sadece bir hücrenin içeriğini seleceğiz ve oda eğer toplam 31 ise

İndir

Dosyayı indir

dosya.co

 

[luffy010109]

Hocam sizin kod rastgele siliyor ama ben her satırdan sadece bir hücrenin içeriğini temizlesin istiyorum. Yani E7:AI7 arasındaki hücrelerden herhangi birinin içeriğini temizlesin

 

[ÖmerFaruk]

Koddaki şu satırı düzeltin lütfen.
Cells(KolonNo,i) = ""
yerine
Cells(i, KolonNo) = ""

Row1=7
Row2=88 satırlarını kendinize uyarlayabilirsiniz.