- Katılım
- 29 Mart 2011
- Mesajlar
- 43
- Excel Vers. ve Dili
- 2007, türkçe
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
makro da sadece var olan makro yerleştirip run kısmını biliyorum, bu bilgiler ışığında ağer makro yazacaksanız çok memnun olurum,
veriden istediğim ara yıllarda girilmeyi unutulan verinin olup olmadığıdır.
Sub Emre()
Dim i As Integer, a As Integer
For i = 2 To 17
For a = 2 To 7
If Cells(i, a) > 0 And Cells(i, a + 1) = 0 And Cells(i, a + 2) > 0 Then
MsgBox Cells(i, a + 1).Address(0, 0) & " hücresi hatalı"
Cells(i, a + 1).Select
End If
Next a
Next i
i = Empty: a = Empty
End Sub