Makro düzenlemesi

[k_enan]

Ekte sorumuz mevcuttur .
Iyi çalışmalar
ilgilenen arkadaşlara tşk ederim.

 

[seismic]

Sheets("Sayfa2").Cells(x, 1) = "'" & CStr(vSpl)

yazan kısmı

Sheets("Sayfa2").Cells(1, x) = "'" & CStr(vSpl)

olarak değiştirirseniz sütunlara yazacaktır. Daha doğrusu ilk satırda sütunlara paylaştıracaktır.

 

[k_enan]

sutunlar alt altta gelebilir mi yan yana gelmiş

 

[seismic]

Sütunlar alt alta gelebilir mi derken nasıl bir şeyi kastettiğinizi anlayamadım. Sütunlar yan yana durur, satırlar alt alta durur. Sizin buraya eklediğiniz kodda verileri alt alta yazıyor, değiştirilen kısımdan sonra yan yana yazıyor. En iyisi olması gerekeni dosya üzerindeki sayfa2'de gösterin ona göre bir düzenleme yapılsın.

 

[seismic]

Sub Ayristir()
Dim vSpl As Variant
Dim i As Integer
Dim x As Integer
Dim z As Integer
z = 1
For i = 1 To Sheets("Sayfa1").Cells(65536, 1).End(xlUp).Row
For Each vSpl In Split(Sheets("Sayfa1").Cells(i, 1), ";")
x = x + 1
Sheets("Sayfa2").Cells(x, z) = "'" & CStr(vSpl)
Next
z = z + 1
x = 0
Next i

Sheets("Sayfa2").Select
End Sub

*************

Böyle bir şey mi istiyorsunuz?

 

[k_enan]

Sayfayı olması gereken şeklinde düzenledim.

 

[seismic]

Sub Ayristir()
Dim vSpl As Variant
Dim i As Integer
Dim x As Integer
Dim z As Integer
z = 1
For i = 1 To Sheets("Sayfa1").Cells(65536, 1).End(xlUp).Row
For Each vSpl In Split(Sheets("Sayfa1").Cells(i, 1), ";")
x = x + 1
Sheets("Sayfa2").Cells(z, x) = "'" & CStr(vSpl)
Next
z = z + 1
x = 0
Next i

Sheets("Sayfa2").Select
End Sub


Kodu bu şekilde düzenlerseniz istediğiniz işlemi yapıyor olması lazım. Veriler 100.000 civarında demişsiniz ancak excel 2003 65536 SATIR destekler. Umarım 100.000'den kastınız satır sayısı değildir.