mesela "SutunSay = Cells(15,1).End(xlToRight).Column" satırında kullanılan 15 sayısı alan başlığınızın olduğu 15. satırı ifade ediyor
ve SutunSay satırdaki son dolu hücreyi bulmak için kullanılıyor bu çalışmada L sütunu 12. sütun yani
bunun yerine
sütun sayısı belli ise
SutunSay=12 de denebilirdi
Kod:
Dim SutunSay, SatirSay, SatirSay2, x As Long
SutunSay = Cells(15, 1).End(xlToRight).Column
SatirSay = Cells(15, 1).End(xlDown).Row
For x = 2 To SutunSay
SatirSay2 = Cells(15, x).End(xlDown).Row
If SatirSay <> SatirSay2 Then
MsgBox ("Boş veri var güncelleme iptal edildi")
Exit Sub
End If
Next x
MsgBox ("sorun yok")