Sayfa 2 deki değer olan 2 hücreyi 1. sayfada birleştirme

[fatcem]

Dim S1 As Worksheet, s2 As Worksheet
Set S1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")

For i = 2 To 50
S1.Cells(i, "I") = s2.Cells(i, "G") & "/" & s2.Cells(i, "I")
Next i


şeklinde bir formul var
burda 2 to 50 değilde içinde değer olan hücreleri birleştirmesini istiyorum,
mümkün mü? Yani yine G ve I hucreleri birleşecek ama G2 I2 birlesecek eger G3 ve I3 de değer varsa birleşecek yada 4,5,6,7

Teşekkürler.

 

[aliveli06]

Dim S1 As Worksheet, s2 As Worksheet
Set S1 = Sheets("Sayfa1"): Set s2 = Sheets("Sayfa2")
For i = 2 To s2.[g65536].End(3).Row
If s2.Cells(i, "G") <> "" Then
S1.Cells(i, "I") = s2.Cells(i, "G") & "/" & s2.Cells(i, "I")
End If
Next i

 

[fatcem]

Çok Teşekkürler.