Alt alta ekleme?

[melisbb]

Çözüldü teşşekkürler

 

[suleyman242]

Dosyayı ekledim.
İncelermisin.

 

[melisbb]

Çözüldü teşşekkürler

 

[Huseyinkis]

Kodları ekteki gibi denermisiniz.

Private Sub CommandButton1_Click()
On Error Resume Next
Range("A:B").ClearContents
    For x = 1 To [D65536].End(3).Row
            dad = Cells(x, "D").Value
            ayir = Split(dad, "-")
            i = 0
            islem = True
                Do While islem = True
                ss = [A65536].End(3).Row + 1
                Cells(ss, "A").Value = ayir(i)
                Cells(ss, "B").Value = Mid(Cells(x, "C"), 1, 1)
                
                i = i + 1
                    If ayir(i) = "" Then
                    islem = False
                    End If
                Loop
    Next
End Sub

 

[suleyman242]

Çok teşekkürler

eğer mümkünse bir sorum daha var

Bir önceki sutunda C3, D4 olan sutunun ilk harfinide alıp ekletirme olabilir mi?

"F"sutununa eklettim

 

[melisbb]

süpersiniz çok sağolun , çok işime yaradı.

 

[suleyman242]

Rica ederim kolay gelsin.