Sil Komutu ile ilgili tüm satırların silinmesi mümkün mü?

[Yesilyurtlu]

Üstadlarım ve uzmanlarım Hepinize hayırlı akşamlar diliyorum.

Sizlerden iki tane istirhamım olacak mümkünse.

1 - Ekli dosyada Personel Giriş sekmesinde gerilen personellerden çıkış yapan olursa eğer işlem durumunda SİL dersem eğer o şahsa ait
Çizelge, banka listesi, Bordro, ASG Bordro'da tamamen silinsin ve sıralama da ona göre durum değiştirsin.

2 - Birimi sekmesinde İlköğretim seçersem çizelgeye ilköğretim biriminde var olan aktarılsın Lise ya da anaokulu dersem onlar aktarılsın.


Şimdiden zahmet verdiğim için emeği geçen herkesten hakkını helal etmesini diliyorum

 

[Ömer]

Merhaba,

Sub Sil()
Set S1 = Sheets("Çizelge")
Set S2 = Sheets("Bordro")
Set S3 = Sheets("Banka Listesi")
Set S4 = Sheets("ASG Bordro")
 
For a = 3 To [B65536].End(3).Row
 
If Cells(a, "b") = "Sil" Then
 
Set b = S1.Range("B:B").Find(Range("G" & a), LookIn:=xlValues)
If b Is Nothing Then GoTo Devam
S1.Rows(b.Row).EntireRow.Delete
 
Set c = S2.Range("B:B").Find(Range("G" & a), LookIn:=xlValues)
If c Is Nothing Then GoTo Devam
S2.Rows(c.Row).EntireRow.Delete
 
Set d = S3.Range("D:D").Find(Range("G" & a), LookIn:=xlValues)
If d Is Nothing Then GoTo Devam
S3.Rows(d.Row).EntireRow.Delete
 
Set e = S4.Range("C:C").Find(Range("G" & a), LookIn:=xlValues)
If e Is Nothing Then GoTo Devam
S4.Rows(e.Row).EntireRow.Delete
 
End If
 
Devam:
Next
End Sub

Eğer butonla değilde doğrulamadaki veriyi seçince silme işlemini yapmak istiyorsanız ilave olarak aşağıdaki kodlarıda Personel Giriş sayfasının kod bölümüne kopyalayınız..

Private Sub Worksheet_Change(ByVal Target As Range)
    For i = 3 To [B65536].End(3).Row
    If Not Intersect(Target, Range("B3:B" & i)) Is Nothing Then Call Sil
    Next
End Sub

2. sorunuzu anlayamadım, biraz daha açarmısınız..

.

 

[Yesilyurtlu]

Ömer Uzmanım eline sağlık.
Ama ben beceremedim. İkinci soruyu ben çözdüm. Ama birinci soruyu verdiğiniz kodlar ile yapamadım. birinci mesajımda ki ekli dosyaya uyarlayıp ekleyebilmeniz mümkün mü?

Allah senden razı olsun

 

[Ömer]

Butonla mı silinecek yoksa doğrulamadan sil seçilince anındamı silinecek.

.

 

[Yesilyurtlu]

Ömer uzmanım;
benim için önemli olan sil dediğim zaman o şahıs ile ilgili ne kadar satır var ise diğer sekmelerde hepsi silinsin.
Size göre en mantıklısı hangisi ise neyi takdir ederseniz onu yapın benim kabulümdür

 

[Ömer]

Doğrulamadan Sil'i seçerek diğer sayfalarda aa isimlerinin silindiğini görebilirsiniz..

.

 

[Yesilyurtlu]

Ömer Uzmanım;
Eline koluna sağlık. Hakkını helal et