DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Formülle yapılmış dosyanız ekte.formda aradım fakat bulamadım
ekte dosyanın küçük bir örneğinde açıklamaya çalıştım
teşekkürler
Sub Button2_Click()
[d5:d100].ClearContents
For i = 5 To [c65536].End(3).Row
For j = 5 To 20 'Burasını Kolon Sayısı Kadar Düzeltiniz!!!!
If Cells(i, j).Value <> "" Then
Cells(i, "d").Value = Cells(i, j).Value
Exit For
End If
Next j
Next i
End Sub
Sn Rİpek Kod ÇaliŞmadi
Nasil DÜzeltİrİz.
TeŞekkÜrler
Private Sub CommandButton1_Click()
[D5:D100].ClearContents
For i = 5 To [C65536].End(3).Row
Cells(i, "D") = Cells(i, Cells(i, "D").End(2).Column)
Next i
End Sub