Hücreyi sütunlara dönüştürmede hata

[karakaçan]

İyi çalışmalar diliyorum. 40 sayfalık bir dosyadaki bir hücreyi kodla sütunlara dönüştürmek istiyorum. Ve bunu tüm sayfalar için yapmak istiyorum. Bu kodu kullandım ama hata veriyor. Yardımcı olabilir misiniz?


Sub ayır()

Dim Sayfa As Worksheet
For Each Sayfa In Worksheets
Sayfa.Range("A5").Select

Selection.TextToColumns Destination:=Range("A5"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), TrailingMinusNumbers:= _
True
Next Sayfa
End Sub

 

[Merhum İdris SERDAR]

.

Her nedense yanıt vermediniz ama...

Soru - Hücre taşıma işlemini her sayfa için yapmak

İyi akşamlar 44 sayfadan oluşan bir excel dosyam var sayfa bir deki A5 hücresindeki bir değeri E5 hücresine taşımak istiyorum fakat aynı işlemi diğer tüm sayfalarda da yapmasını istiyorum. Bunun kodunu paylaşabilirseniz çok sevinirim. Teşekkürler.

www.excel.web.tr

Burada anlattığım yöntemi burada da uygulayabilirsiniz.

.

 

[karakaçan]

idris hocam bu yöntemi uygulayınca metni sütunlara dönüştür kısmı pasif oluyor.

 

[mahmut011]

Merhaba,
kodunuzu çalıştırmaya çalıştım, aşağıdaki koyu satırı ekleyince çalıştı. sanırım bir önceki sayfada bir hücre seçiliyken sonraki sayfada hücre seçemiyor excel.

For Each Sayfa In Worksheets
Sayfa.Select
Sayfa.Range("A5").Select

 

[karakaçan]

Merhaba,
kodunuzu çalıştırmaya çalıştım, aşağıdaki koyu satırı ekleyince çalıştı. sanırım bir önceki sayfada bir hücre seçiliyken sonraki sayfada hücre seçemiyor excel.

For Each Sayfa In Worksheets
Sayfa.Select
Sayfa.Range("A5").Select

Çok teşekkürler sağolun.