Sayısız eğer döngüsü.

[harami123]

Öncelikle herkese merhaba. Benim bir sorunum var. Sayfada d1 hücresine bir bilgiyi otomatik olarak yazdırmak istiyorum. İşlem şu şekilde olacak. Macro c1 hücresine bakacak. eğer orda veri varsa onu d1 e yazacak. yoksa b1 e bakacak varsa o veriyi d1 e yazacak. ben bunu tek sütun için aşağıdaki kod ile çözdüm.

Sub deneme()
If Range("d1") = "" Then
Range("c1").Select
Selection.Copy
Range("e1").Select
ActiveSheet.Paste
Else
Range("d1").Select
Selection.Copy
Range("e1").Select
ActiveSheet.Paste
End If
End Sub

ancak bunun en az 1000 kere tekrarlanması gerekiyor. Yani benim belirteceğim satıra kadar aynı işlemi yapacak. acaba bunu nasıl yaparım.
İlginiz ve yardımınız için şimdiden teşekkür ederim.

 

[fedeal]

Sub deneme()
For i = 1 To 1000
If Range("c" & i) = "" Then
If Range("b" & i) = "" Then
Else
Range("d" & i).Value = Range("b" & i)
End If
Else
Range("d" & i).Value = Range("c" & i)
End If
Next
End Sub

istediginiz bu olabilirmi?

 

[Ayhan Ercan]

Merhaba

For i = 1 To [COLOR=red]1000[/COLOR]
If Cells(i, "C") <> "" Then
    Cells(i, "D") = Cells(i, "C")
ElseIf Cells(i, "B") <> "" Then
    Cells(i, "D") = Cells(i, "B")
End If
Next

 

[harami123]

Emrah bey kodunuz tam anlamıyla işime yaradı. Çok teşekkür ederim.

Ayhan bey sizede ilginizden dolayı teşekkür ediyorum. Kodunuz tam anlamı ile ihtiyacımı karşılamıyor fakat emrah bey yazmamış olsaydı kodunuzu kendime uyarlıyabilirdim. Yani işime yarardı. Galiba anlatımımdan dolayı yanlış anladınız. Kolay gelsin.

Zaten bu macrodan iyi kötü anlıyorum. Hazır kodları isteğime göre değiştirebiliyorum ama bi şu for (değişken) olayını çözemedim.

 

[fedeal]

Emrah bey kodunuz tam anlamıyla işime yaradı. Çok teşekkür ederim.

Ayhan bey sizede ilginizden dolayı teşekkür ediyorum. Kodunuz tam anlamı ile ihtiyacımı karşılamıyor fakat emrah bey yazmamış olsaydı kodunuzu kendime uyarlıyabilirdim. Yani işime yarardı. Galiba anlatımımdan dolayı yanlış anladınız. Kolay gelsin.

Zaten bu macrodan iyi kötü anlıyorum. Hazır kodları isteğime göre değiştirebiliyorum ama bi şu for (değişken) olayını çözemedim.

ricaederim iyi çalışmalar.