DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Sub Bosluk_Al()
Range("a3:f" & [a65536].End(3).Row).SpecialCells(xlCellTypeBlanks).Select
Selection.Delete shift:=xlUp
MsgBox "Boşluklar başarıyla silindi.", vbInformation, "DURUM"
End Sub
Sub Bosluk_Al()
For x = 3 To [d65536].End(3).Row
If Cells(x, "d") = "" Then Cells(x, "e").ClearContents
Next
Range("a3:f" & [a65536].End(3).Row).SpecialCells(xlCellTypeBlanks).Select
Selection.Delete shift:=xlUp
MsgBox "Boşluklar başarıyla silindi.", vbInformation, "DURUM"
End Sub
Arkadaşım çok sağolasın.......ya sana çok soru sordum ama bir soru daha sorayım ,ben vb macro'yu temel korkmaz kitabına çalışıyorum ama problemlerime cevp vermiyo ,acaba senin bildiğin türkçe veya ingilizcee kaynak önerebilirmisin bana ....
Ben bu kitabı en kısa zaman da temin edip sizleride sorularımla sık boğaz edmeyeyim,ama bi sorum daha olck , şimdi A sutununda kaç tane hücrenin kullanıldğını nasıl bulabilirim...Activecells() bi kod ,yani kulllanılan hücre sayısını öğrenmek istioyrum....
MsgBox WorksheetFunction.CountA(Range("A:A"))