For-Next döngüsü hk.

[alibaskan]

Arkadaşlar yardımınıza ihtiyacım var. Ekteki dosyada altalta 2 tane for-next dönegüsü kullandım ama çalışmadı kodları değiştirdiğimde sürekli döngüye girdi. Yapmak istediğim; satırlardaki isimleri sütunlardaki renkli alanlara yazması.

 

[kulomer46]

Şu şekilde deneyin..
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 3 To 9
Cells(2, i + 2) = Cells(i, 4)
Next
End Sub

 

[Orion1]

Ekli dosyayı inceleyiniz.

Sub aktar()
Dim i As Byte
For i = 3 To 9
    Cells(2, i + 2).Value = Cells(i, "D").Value
Next
MsgBox "İşlem Tamam..!!"
End Sub

 

[kulomer46]

Sütunları satırlara veya satırları sütunlara çevirmek için,
ilgili alanı mouse ile seçiniz,
kopyala yapınız,
yapıştırmak istediğiniz ilk hücreyi seçiniz,
özel yapıştırı seçiniz,
işlemi tersine çevir'i tıklayıp tamam a basınız..
Böylece sütunları satırlar ve satırları sütunlara rahatlıkla çevirebilirsiniz..

 

[alibaskan]

Sayın Kulomer46'nın söylediği yöntemle çözdüm. Çok pratik. Teşekkür ediyorum. Evren Bey size de teşekkürler. Satırları sütunlara ters çevirerek yapıştırma konusunu biliyordum fakat artık tüm sorunlarımı vba ile çözme kararı aldım excelde olan bilgimi vba'da da geliştirmek istiyorum. İlginizden dolayı teşekkür ediyorum.

 

[alibaskan]

Arkadaşlar bu sefer sonsuz döngüye girdi. Bir türlü çözemedim bu for-nexti.

Sub Worksheet_Change(ByVal Target As Range)
Satır_Ürün_Sayısı = WorksheetFunction.CountA(Range("b:b")) - 1

For Sütun = 6 To (5 + Satır_Ürün_Sayıs&#305
Cells(2, Sütun) = Cells(Sütun - 3, 2)
Next Sütun
End Sub

 

[alibaskan]

Aşağıdaki şekilde If ile kontrol ettirip sonlandırdım ama yine de sonsuz döngüden çıkmıyor.

Sub Worksheet_Change(ByVal Target As Range)
Satır_Ürün_Sayısı = WorksheetFunction.CountA(Range("b:b")) - 1

For sütun = 6 To (5 + Satır_Ürün_Sayıs&#305
Cells(2, sütun) = Cells(sütun - 3, 2)
If sütun = (5 + Satır_Ürün_Sayıs&#305 Then
Exit Sub
Else:
End If
Next sütun
End Sub