ÇAKIÃAN KODLAR
ARKADAÃLAR; TAM DA HARİKA BİR DOSYA YAPTIM DERKEN BİR DE BAKTIM HATA VERİYOR MAALESEF. SORUN ÃU:
HEM
Sub Bossil()
On Error Resume Next
For Each sec In Range("b35:b241")
If sec.Value = 0 Then
k = k + sec.Address & ","
End If
Next sec
k = Mid(k, 1, Len(k) - 1)
Range(k).Select
Selection.EntireRow.Delete
Range("J32").Select
End Sub
HEM DE
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$12" Then [c20].Select
If Intersect(Target, [c20:j32]) Is Nothing Then Exit Sub
If Target.Column < 10 Then Target.Offset(0, 1).Select
If Target.Column = 10 Then Target.Offset(1, -7).Select
End Sub
KODLARINI KULLANIYORUM AMA
BOSSIL MAKROSUNU ÇALIÃTIRINCA
Then Target.Offset(0, 1).Select
SATIRINDA HATA VERİYOR.
YARDIMLARINIZI BEKLERİM.
ARKADAÃLAR; TAM DA HARİKA BİR DOSYA YAPTIM DERKEN BİR DE BAKTIM HATA VERİYOR MAALESEF. SORUN ÃU:
HEM
Sub Bossil()
On Error Resume Next
For Each sec In Range("b35:b241")
If sec.Value = 0 Then
k = k + sec.Address & ","
End If
Next sec
k = Mid(k, 1, Len(k) - 1)
Range(k).Select
Selection.EntireRow.Delete
Range("J32").Select
End Sub
HEM DE
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$E$12" Then [c20].Select
If Intersect(Target, [c20:j32]) Is Nothing Then Exit Sub
If Target.Column < 10 Then Target.Offset(0, 1).Select
If Target.Column = 10 Then Target.Offset(1, -7).Select
End Sub
KODLARINI KULLANIYORUM AMA
BOSSIL MAKROSUNU ÇALIÃTIRINCA
Then Target.Offset(0, 1).Select
SATIRINDA HATA VERİYOR.
YARDIMLARINIZI BEKLERİM.