ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[drejan62]

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

[SQL]

Makronun başına
Application.DisplayAlerts = False

Sonuna

Application.DisplayAlerts = True

yazın

[drejan62]

Makronun başına
Application.DisplayAlerts = False

Sonuna

Application.DisplayAlerts = True

yazın

Erkan bey Teşekkürler

[snf124]

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

[Murat OSMA]

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.

[snf124]

"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ü?

[snf124]

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

[Ali Kırksekiz]

"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.

[Murat OSMA]

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.

[snf124]

Çok teşekkürler, emeklerinize sağlık.