[Çözüldü]  Metni Sütunlara Çevir

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Metni Sütunlara Çevir

İleti#1)  drejan62 » 29 Mar 2010 12:16

Merhabalar,
Excel sayfasında B sütununu seçerek bir sütun ilave ediyorum.
Sonra A sütununu seçerek Metni Sütunlara dönüştür diyorum. Bunu makroya kaydedip kullanacağım makro için
yerleştiriyorum fakat. makro bu aşamaya geldiğinde "hedef hücre değeri deşisinmi" gibi bir uyarı veriyor. Tamam tuşuna baktıktan sonra makro devam ediyor.
Acaba Bu uyarıyı vermeden makronun işlemlere devam etmesi sağlanabilirmi?
Teşekkürler
Metni Sütunlara dönüştür işleminin kodları altta:
Kod: Tümünü seç
  Columns("A:A").Select
    Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
        :=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True
En son Ali Kırksekiz tarafından, 06 Mar 2014 16:58 tarihinde değiştirildi, toplamda 2 değişiklik yapıldı.
Sebep: Ön ek seçildi.
Kullanıcı avatarı
drejan62
Site Dostu
 
Adı Soyadı:ercan yılmaz
Kayıt: 29 Kas 2008 20:01
Konum: ...
Meslek: kamu
Yaş: 52
İleti: 546
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

Yıllık Maaş Bordrosu Hesaplama 2022

Cevap: Metni Sütunlara Çevir

İleti#2)  SQL » 29 Mar 2010 13:21

Makronun başına
Application.DisplayAlerts = False

Sonuna

Application.DisplayAlerts = True

yazın
Kullanıcı avatarı
SQL
Yeni Başlamış
 
Adı Soyadı:Erkan Akayay
Kayıt: 21 Oca 2010 17:02
Yaş: 52
İleti: 40
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Cevap: Metni Sütunlara Çevir

İleti#3)  drejan62 » 31 Mar 2010 11:36

SQL yazdı:Makronun başına
Application.DisplayAlerts = False

Sonuna

Application.DisplayAlerts = True

yazın

Erkan bey Teşekkürler
Kullanıcı avatarı
drejan62
Site Dostu
 
Adı Soyadı:ercan yılmaz
Kayıt: 29 Kas 2008 20:01
Konum: ...
Meslek: kamu
Yaş: 52
İleti: 546
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir

Cevap: Metni Sütunlara Çevir

İleti#4)  snf124 » 06 Mar 2014 16:05

Merhabalar,

Araştıma sonucu bulduğum ve uyarladığım aşağıdaki kod ile "A1" hücresindeki değeri "boşluk"larından ayırarak sütunlara dönüştürebiliyorum. Acaba "A" sütununun hepsini bu şekilde dönüştürmek için nasıl bir kod gerekli?

Kod: Tümünü seç
Private Sub CommandButton1_Click()
kolon = Split(Cells(1, 1).Value, " ")
For i = 0 To UBound(kolon)
Cells(1, i + 2).Value = kolon(i)
Next
End Sub
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
snf124
Siteye Alışmış
 
Adı Soyadı:selim vardar
Kayıt: 19 Ağu 2012 10:16
Konum: diğer
Meslek: diğer
Yaş: 42
İleti: 210
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: çanakkale

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Metni Sütunlara Çevir

İleti#5)  Murat OSMA » 06 Mar 2014 16:17

Kodları bir de satır döngüsü içine sokarak yapabilirsiniz..

Ama bu konu için makroya gerek yok.
Veri menüsündeki Metni Sütunlara Dönüştür metodu ile yapabilirsiniz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 37
İleti: 14414
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Metni Sütunlara Çevir

İleti#6)  snf124 » 06 Mar 2014 16:31

"A" sütununda formül bulunduğu için Veri menüsündeki Metni Sütunlara Dönüştür metodu ile yapamıyorum.

Makro ile de yeni tanışıyorum sayılır. Bir "For" "Next" döngüsü yazabilir miyim dedim başarılı olamadım. Yardım etmeniz mümkün mü?
Kullanıcı avatarı
snf124
Siteye Alışmış
 
Adı Soyadı:selim vardar
Kayıt: 19 Ağu 2012 10:16
Konum: diğer
Meslek: diğer
Yaş: 42
İleti: 210
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: çanakkale

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Metni Sütunlara Çevir

İleti#7)  snf124 » 06 Mar 2014 16:43

Sanırım aşağıdaki kod ile başardım. İlgilenen herkese teşekkürler.


Kod: Tümünü seç
Private Sub CommandButton1_Click()
Range("b1:d65536").Select
    Selection.ClearContents
For n = 1 To Range("A65536").End(xlUp).Row
kolon = Split(Cells(n, 1).Value, " ")
For i = 0 To UBound(kolon)
Cells(n, i + 2).Value = kolon(i)
Next
Next
End Sub
Kullanıcı avatarı
snf124
Siteye Alışmış
 
Adı Soyadı:selim vardar
Kayıt: 19 Ağu 2012 10:16
Konum: diğer
Meslek: diğer
Yaş: 42
İleti: 210
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: çanakkale

Cevap: Cevap: Metni Sütunlara Çevir

İleti#8)  Ali Kırksekiz » 06 Mar 2014 16:43

snf124 yazdı:"A" sütununda formül bulunduğu için Veri menüsündeki Metni Sütunlara Dönüştür metodu ile yapamıyorum.


Basit metot olarak A sütununu seçiniz Kopyala deyiniz başka bir sütuna sağ tuş- Özel yapıştır değerleri deyip tamam deyiniz. Şimdi Metni Sütunlara Dönüştür ile ayırınız.
Ali Kırksekiz
Forum Moderatörü
 
Adı Soyadı:Ali Kırksekiz
Kayıt: 18 Eyl 2008 09:12
Konum: Sivas
Meslek: Lab ve Kalite Kontrol
Yaş: 48
İleti: 1571
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Sivas

Cevap: Metni Sütunlara Çevir

İleti#9)  Murat OSMA » 06 Mar 2014 16:53

Döngüler ile ilgili bu başlıklardan ders alabilirsiniz;
viewtopic.php?f=37&t=83
viewtopic.php?f=37&t=2094


Sorunuzla ilgili olarak; Parçaal - Soldan - Sağdan gibi Metin formülleri ile de başka bir alternatif oluşturabilirsiniz.

B1 hücresine;
Kod: Tümünü seç
=SOLDAN(A1;BUL(" ";A1;1)) 
C1 hücresine
Kod: Tümünü seç
=PARÇAAL(A1;UZUNLUK(B1)+1;BUL(" ";A1)) 
D1 hücresine
Kod: Tümünü seç
=SAĞDAN(A1;BUL(" ";A1)-1) 
formüllerini yazıp aşağıya doğru çekiniz.
Kullanıcı avatarı
Murat OSMA
Site Forum Yöneticisi
 
Adı Soyadı:Murat OSMA
Kayıt: 05 Arl 2008 00:34
Konum: İstanbul
Meslek: Excel & VBA Eğitmeni
Yaş: 37
İleti: 14414
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bağcılar - İSTANBUL

Cevap: Metni Sütunlara Çevir

İleti#10)  snf124 » 06 Mar 2014 16:56

Çok teşekkürler, emeklerinize sağlık.
Kullanıcı avatarı
snf124
Siteye Alışmış
 
Adı Soyadı:selim vardar
Kayıt: 19 Ağu 2012 10:16
Konum: diğer
Meslek: diğer
Yaş: 42
İleti: 210
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: çanakkale


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 4 misafir

Bumerang - Yazarkafe