Engineerist34
Altın Üye
- Katılım
- 8 Ekim 2012
- Mesajlar
- 46
- Excel Vers. ve Dili
- Office 365
- Altın Üyelik Bitiş Tarihi
- 01-09-2028
Merhabalar,
Örnek Excel dosyamız aşağıdaki gibidir. İstediğimiz şey G sütunundaki değerleri L sütununa taşımak. Ama eğer G sütunundaki hücre boş ise hiç bir işlem yapmasın bir alt satırdan devam etsin.
Ben bunun için aşağıdaki kodu yazmaya çalıştım ama Compile Error : Next without For hatası verdi. For kısmı da yazılı aşağıdaki gibi.
Ben kodu deneme sayfasında 20 ye kadar çalışması için yapmıştım ama G 'nin son satırına kadar gitmesini istiyorum aslında.
Yardımlarınız için şimdiden teşekkür ederim.
Örnek Excel dosyamız aşağıdaki gibidir. İstediğimiz şey G sütunundaki değerleri L sütununa taşımak. Ama eğer G sütunundaki hücre boş ise hiç bir işlem yapmasın bir alt satırdan devam etsin.
Ben bunun için aşağıdaki kodu yazmaya çalıştım ama Compile Error : Next without For hatası verdi. For kısmı da yazılı aşağıdaki gibi.
Ben kodu deneme sayfasında 20 ye kadar çalışması için yapmıştım ama G 'nin son satırına kadar gitmesini istiyorum aslında.
Kod:
Sub kopyala()
For i = 1 To 20
ActiveSheet.Cells(i, 7).Select
If ActiveCell.Value <> "" Then
ActiveCell.Value = ActiveCell(i, 12).Value
Else
ActiveCell = ActiveSheet.Cells(i + 1, 7).Select
Next i
End Sub