KoNFiCuS
Altın Üye
- Katılım
- 18 Mayıs 2011
- Mesajlar
- 60
- Excel Vers. ve Dili
- Office 365 TR - 64 Bit
- Altın Üyelik Bitiş Tarihi
- 08-03-2028
Değerli Üstadlar,
ufak bir problemim var örneğin A2 den E son satıra kadar olan bir aralıkta boş satırlar bulunmakta, kod ile bunları seçmek istediğimde sadece A sütunun daki boşlukları seçmekte.
Kısaca kodum;
Test 1,2,3 istediğim aralığı seçiyor, SpecialCells(xlCellTypeBlanks).Select kod satırı geldiğinde sadece A daki boşlukları seçmekte. nasıl tüm aralığı seçtirebilirim.
ufak bir problemim var örneğin A2 den E son satıra kadar olan bir aralıkta boş satırlar bulunmakta, kod ile bunları seçmek istediğimde sadece A sütunun daki boşlukları seçmekte.
Kısaca kodum;
Kod:
lastRow = Cells(Rows.Count, 1).End(xlUp).Row
lastCol = Cells(1, Columns.Count).End(xlToLeft).Column
Range(Cells(1, 1), Cells(lastRow + 2, 1 + 4)).Select 'Test 1
On Error GoTo errhandlr
Range("A2:d" & lastRow - 1).Select 'Test 2
Range("A2:d" & lastRow - 1).SpecialCells(xlCellTypeBlanks).Select 'Test 3
Selection.FormulaR1C1 = "=R[-1]C"
Range(Cells(1, 1), Cells(lastRow + 2, 1 + 4)).Value = Range(Cells(1, 1), Cells(lastRow + 2, 1 + 4)).Value
Ekli dosyalar
-
106.5 KB Görüntüleme: 5
-
111.6 KB Görüntüleme: 5