string parcala ve tasima

[musti_99]

kardes cok tesekkurler yardimin icin ama tam olarak anlatmakda zorlaniyorum

http://www.upload-picture.com/images/Y7575318.jpg

http://www.upload-picture.com/images/3wh75388.jpg









YUKARDAKI 1. SEKILDE YUZLERCE AYNI TARZ BILGI VAR AMA SIRALARI AYNI DUZEN ICINDE GITMIYOO...MESELA 2 SATIRDAKI BILGI TESLIM YERI 8 SATIR SONRADA VAR...AMA HEP 8 ER 8 ER GITMIYOO...DEGISMEYEN TEK SEY BASLIKLAR...HEPSI A SUTUNUDA BILGILERIN...ISTE OYLE BI KOD YAPMAK ISTIYORUM KI SEKIL 2 GIBI OLSUN

1.ISTEK NO YU YAZDIKTAN SONRA MA2+MA KISMINDAKI BILGILERI BIRLESTIRSIN..

ORNEK SEKIL 2 DE VAR

(BI DE SEKIL 1 DE MA:MUTARMUATR YAZMISIM AMA ORDA DAAH FARKLI SEYLER VARDI....SOGUK,SOGUK,,VS,,,VS )

HERHALDE ANLATABILDIM...TESEKKURLER...YAPANDAN ALLAH RAZI OLSUN,,,:yardim:

 

[Levent Menteşoğlu]

Sorununuz anlaşılmıyor. Yapmak istediğiniz, sayfa1 deki verileri sayfa2deki forma altalta aktarmakmıdır.

 

[musti_99]

yok tam olarak oyle degil
mesela

mustafa,ucar,murtaza,kemal,tarik bu sekilde bi satir var

2.sayfada

a1=mustafa
a2=ucar
a3=murtaza

bu sekilde yani virgulden sonrakiler alt alta olacak

 

[zafer]

Merhaba

Son gönderdiğiniz mesaj ile ekli dosyanızdaki veri yapınız değişik.

Son mesaj için.

Sub parcala()
cumledeki_degerler = Split([a1], ",")
For i = 0 To UBound(cumledeki_degerler)
Cells(i + 1, 2) = cumledeki_degerler(i)
Next
End Sub

'Ubound: Dize içerisindeki elemanları sayar.
'Kullanımı: UBound(Dize_adi)
'Split: Bir string'i belirli ayaraçlar ile dizelere atamamızı sağlar
'Kullanımı : Split("Dize değeri1,Dize değeri2,Dize değeri3",Ayraç)

 

[hikmet]

sn.hocam split ile ayraçlar aracılığı ile atılan bu değerleri alt alta değil yan yana yani satırlara değil sütunlara attırabilirmiyiz

 

[zafer]

Merhaba

[LEFT]Sub parcala()
cumledeki_degerler = Split([a1], ",")
For i = 0 To UBound(cumledeki_degerler)
Cells(1,i+3) = cumledeki_degerler(i)
Next
End Sub[/LEFT]

Cells(1,i+3) buradaki i=sütun 1 satır değerlerini isteğinize göre değiştiriniz.

 

[hikmet]

hocam denedim ama beceremedim; yapmak istediğim a1 hücresinde bir veri var. hücrenin içindeki bütün verinin birinci boşluğa kadar olanı bir b1 hücresine ikinci boşluğu kadar olanı c1 hücresine üçüncü boşluğa kadar olan kısmı d1 hücresine aldırmak. ayraç tanımını " " olarak değiştirdiğimde boşluklara göre kaç kelime varsa aynı sütunda alt alta sıralıyor.

 

[zafer]

Merhaba

cells(1,i+2) i değişkeni sütunları gösteriyor. A1 deki veriniz kaç parçaysa
B sütunundan başlayarak sütunlara yazar.

Ekli dosyayı inceleyiniz.

 

[hikmet]

hocam teşekkür ederim bendeki bir satırda i+1,2 yazıyor sizdekinde 1,i+2 yazıyor fark bundan kaynaklanmış. tesadüfen aslında aradığım bir sorunun cevabını buldum ve o heyecanla sormayı unuttum birden fazla satırı parçalamak için kodu nasıl değiştirmemiz gerekir.

 

[zafer]

Merhaba

A sütunundaki dolu bütün satırları yanlarındaki sütunlara ayırır.

Sub parcala()
For y = 1 To Cells(65536, 1).End(xlUp).Row
cumledeki_degerler = Split(Cells(y, 1), " ")
For i = 0 To UBound(cumledeki_degerler)
Cells(y, i + 2) = cumledeki_degerler(i)
Next
Next
End Sub

 

[hikmet]

hocam sağ olun beni 38 bin satırlık bir dertten kurtardınız emeğinize sağlık.

 

[musti_99]

selam

tesekkuler herkese

 

[musti_99]

yardim

:yardim: evet arlkadaslar yardim;arinizi bekliyorum

 

[musti_99]

acil

arkadaslar inanin cok acil lutfen yardim edin hala cevap alamadim

 

[musti_99]

selam

:???: simdi forumda bi allahin kulu bu soruyu yapamiyoo mu...:???:

 

[zafer]

Merhaba

Sadece A sütunundakileri : ile ayrılan yerleri 2 sütuna bölünebilir.sonrada , ile ayrılanlar sütunlara bölünebir.
Text dosyanız düzensiz sizin istediğiniz gibi bir görüntü almak çok zor görünüyor.

 

[daali]

Selamlar ,
Bu konuya benzer benimde bir sorum vardı.Sayın leventim,sayın zafer rica etsem "üretim tablosunu transpoze etmek" başlık altındaki soruma bakabilirmisiniz.
Saygılarımla.

 

[musti_99]

selam

yaw desene burda yapan yoksa bunu yapan bulamiycaz:yardim: