Belirli Hücrelerin silinmesi

[musti60]

Bütün arkadaşlara iyi çalışmalar: Arkadaşlar Personel bilgilerini tuttuğum bir dosyam var. Bu dosyada 70 personel bulunmakta ve özlük bilgileri ilgili satıra işlenmiş. Şöyle bir makroya veya formüle ihtiyacım var. Diyelim 15'inci satırda bulunan personel naklen gitti. Naklen giden personele ait 15. satırdaki B15,D15,E15,F15,G15,H15,J15,..... hücrelerdeki bilgileri silmek istiyorum.(Ek dosyada hangi hücrelerin silineceğini de belirttim.) Tek tek silmek istediğimde bazen formül bulunan hücreleri de sildiğimden riskli oluyor. Onun için, makro çalıştığında hangi satırı silmek gerekiyorsa satır nosunu yazdığımda ilgili ilgili sütundaki hücre bilgilerin silinmesi gerekmektedir. Yardımcı olursanız sevinirim. (Dosya ekinin incelenmesi halinde isteğim daha iyi anlaşılır sanırım. Şimdiden teşekkür ederim.

 

[carpediem]

sanırım bu kod işinizi görür

Sheet3.Cells(15, 1).EntireRow.Delete= 15. satırdaki kaydı siler.
Ancak kaydı aratacaksanız? kaç satır olduğunu buldurup buradan hareketle döngü kurabilirsiniz.

Umarım işinize yarar.



yer = Sheet3.Range("A65535").End(xlUp).Row

cevap = MsgBox("seçili kaydı silmek istediğinize eminmisiniz?", vbYesNo)

If cevap = vbYes Then
For i = 2 To yer
If ComboBox1.Value = Sheet3.Cells(i, 1).Value & " " & Sheet3.Cells(i, 2) Then
Sheet3.Cells(i, 1).EntireRow.Delete
k = 1
MsgBox "kayıt silinmiştir"
Exit For
End If
Next
If k = 0 Then MsgBox "aranılan kayıt bulunamadı"

Else
MsgBox "işlem iptal edildi"
End If

 

[Mahmut Kök]

ilgili satırı belirledikten sonra .clearcontents uzantısı ile silebilirsiniz. Mesela;

a = 2 'için
Range("A" & a & "," & "C" & a).ClearContents



2. (a=2) satırdaki belirtilen hücreleri (A,C) siler. Kendinize uyarlayabilirsiniz sanırım.

 

[musti60]

Arkadaşlar benim makro bilgim yok. İhtiyaç duyduğumda örnek dosyayı gönderip siz değerli arkadaşlardan yardım alıyorum. Yine öyle oldu ancak ekteki dosya üzerinde makro oluşturup yaparsanız çok iyi olacak. Şimdiden teşekkürler

 

[Korhan Ayhan]

Selamlar,

Ekte örnek dosyanız üzerinde gerekli düzenlemeyi yaptım. İncelermisiniz. Umarım faydası olur.

 

[musti60]

İstediğim makro bu şekilde idi. Tüm arkadaşlara Teşekkür ediyorum. Ayrıca ve Özellikle "COST CONTROL" arkadaşıma bu saatte ilgilenip cevap yazdığı için. İyi çalışmalar diliyorum.