Hücre Böl

[ataniyazi]

Arkedaşlar Merhaba;
Bir hücre içerisinde noktalar ile ayrılmış bir bilgiyi B2 C2 D2 ve E2 hücrelerine olduğu gibi ayırabilirmiyim. Yardımlarınızı Bekliyorum.Teşekkür ederim.

 

[balca]

Merhaba;
Veri>metni sütunlara dönüştür>ileri derseniz ayırıcılarda noktalı virgülü işaretleyip tamam deyin.
(bu arada işlem yapmak istediğiniz hücreleri önceden seçili hale getiriniz.)

 

[Korhan Ayhan]

Selamlar,

Biçimlendirmek istediğiniz sütunu seçip sırasıyla Veri - Metni Sütunlara Dönüştür seçeneğini seçin. Ekrana gelen pencerede Sınırlandırılmış seçeneği aktif iken İleri tuşuna basın daha sonraki ekranda Diğer kısmına nokta işaretini ekleyin ve tamam deyin istediğiniz gerçekleşecektir.

 

[Kemal Demir]

Sn.Ataniyazi

Ek'teki Dosya'ya bakınız.

 

[ataniyazi]

Sn Rakkas ve Sn Cost Control Problemi çözdüm çok teşekkür ederim

 

[recep]

peki ayırdıktan sonra birleştirmek istesek vani düzeltme yapıp eski şekline dönmesini istersek ne yapmalıyız.

 

[Metin Karaağaç]

düzeltme olmaz fakat
birleştir formülünü kullanarak eski haline getirebilirsiniz

 

[recep]

bü işi makro ile yopmak mümkün olmalı formülle apılam makro ilede yapılbilir diye düşünüyorum

 

[Metin Karaağaç]

bi dediğinizi anlasak belki makrosunu yaparız da

 

[Ali]

Bir ara bununla ilgili kullanıcı tanımlı fonksiyon hazırlamıştım.

Linki ;

http://www.excel.web.tr/viewtopic.php?t=11195

 

[recep]

ayrac adlı dosyadaki makroyo çalıştırdığımda hücre bölünüp yandaki sütunlarda ayrılmış olarak yazıyor. ben bu ayrılmış verilerin üzerinde değişiklik yaptıktan sonra a stununda birleştirmesini istiyorum nasıl makro ile ayrıldıysa makro ile birleştirsin

 

[Valuer]

Sub Bırlestır()
    a = Range("A1")
    b = Range("B1")
    c = Range("C1")
    Range("D1") = a + b + c
End Sub

Örneğini incelemedim kodları kendi hücrelerine ayarlaya bilirsin.

 

[recep]

bu şekilde her satır için yrı ayrı kod yazmak gerekiyor daha basidi vardır her halde 1000 stırdan bahsadiyrum :?

 

[Merhum İdris SERDAR]

Ekteki dosyayı inceleyin.

 

[recep]

makro istemiştim formüllüsünü yaptığımda dosya cok büyüyor

 

[Metin Karaağaç]

Sub deneme()
Range("D1").Select
    ActiveCell.FormulaR1C1 = "=CONCATENATE(RC[-3],RC[-2],RC[-1])"
    Selection.AutoFill Destination:=Range("D1:D10")
End Sub

kodlardan anlamam ama elimden geldiği kadar bişey hazırladım.
hücrelerde en son nerede veri varsa, yazdığım koddaki Range("D110")D10'u değiştirmeniz gerekiyor.

 

[byexcel]

Sub deneme()
Range("e1").Select
Selection.FormulaR1C1 = "=CONCATENATE(RC[-4],"" "",RC[-3],"" "",RC[-2])"
Selection.AutoFill Destination:=Range("e1:e10")
End Sub

 

[Valuer]

[vb:1:c23c3c8e75]Sub bırlestır()
For a = 1 To Cells(65536, 1).End(xlUp).Row
Cells(a, 4) = Cells(a, 1) & Cells(a, 2) & Cells(a, 3)
Next
End Sub[/vb:1:c23c3c8e75]

 

[recep]

tam istediğim gibi biri beni anlamış teşekkürler :mutlu: :mutlu:

 

[Korhan Ayhan]

Selamlar,

Ekteki dosyayı inceleyiniz.