Merhaba arkadaşlar bana yardımcı olabilecek kimse varmı
Herkese iyi çalışmalar..
Herkese iyi çalışmalar..
Ekli dosyalar
-
450.8 KB Görüntüleme: 26
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub kod()
Application.ScreenUpdating = False
gson = [g65536].End(3).Row
ason = [a65536].End(3).Row
For i = gson To 3 Step -1
For a = 3 To ason
If Cells(i, "G") = Cells(a, "A") Then
msj = Cells(i, "G")
Range("A" & a & ":B" & a).Delete
Range("G" & i & ":H" & i).Delete
Else
End If
Next a
Next i
Application.ScreenUpdating = True
MsgBox " B İ T T İ "
End Sub