ilk dolu sutundaki verileri bulmak

[OZCANLOK]

formda aradım fakat bulamadım
ekte dosyanın küçük bir örneğinde açıklamaya çalıştım

teşekkürler

 

[Ali]

D5 hücrenize

=İNDİS(E5:R5;KAÇINCI(1;EĞER(EBOŞSA(E5:R5);"";1);0))

yazıp direk entere basmadan CTRL+SHIFT+ENTER tuşlarına basarak dizi formülü oluşturup aşağı doğru çekiniz.

 

[Merhum İdris SERDAR]

formda aradım fakat bulamadım
ekte dosyanın küçük bir örneğinde açıklamaya çalıştım

teşekkürler

Formülle yapılmış dosyanız ekte.

.

 

[OZCANLOK]

İlginiz için teşekkürler

Tablo çok büyük olduğu için bunu makro ile yapmamız mümkünmü

 

[Recep İpek]

Aşağıdaki kodları deneyiniz.

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

 

[OZCANLOK]

Sn Rİpek Kod ÇaliŞmadi

Nasil DÜzeltİrİz.

TeŞekkÜrler

 

[Merhum İdris SERDAR]

Sn Rİpek Kod ÇaliŞmadi

Nasil DÜzeltİrİz.

TeŞekkÜrler

Sayın ripek'in kodları dosyaya eklenmiştir.

.

 

[Necdet]

Sayın ripek ve Sayın yurttas'ın

İzniyle tek döngüye indirgenmiş ve biraz da kısaltılmış kodlar :

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