Toplu hücreyi bölme

[Bahattin Sungur]

Herkese merhaba ve kolay gelsin,

Sıkıntım basitçe şu şekilde, sayfa1'de a1 hücresine alt alta (alt+enter ile) benzer metinler yazıyorum (xxxxx-yyyyy-zzzzz) ve amacım bu metinleri sayfa 2'de d sutununa 5'er 5'er ayırarak satır satır yine alt alta kopyalaması ( d1 =1,2,3,4,5 d2=6,7,8,9,10 etc.). Kendim excel içindeki formullerle yapmaya çalıştım ama beceremedim, Yardımcı olabilirseniz çok sevinirim. İyi çalışmaalar herkese.

 

[muratboz06]

A1 hücresinden örnek metinin olduğu D sütununda da örnek ayırımın olduğu bir excel dosyası paylaşırsanız yardımcı olabiliriz.
Dosyanızı dosya.tc sitesine yükleyebilirsiniz.

 

[zehirlee]

=OFFSET(Sayfa1!$A$1,(ROWS($D$1: D1)-1)*5,0)
kodu d1 hücresine yapıştırıp deneyiniz.

 

[Bahattin Sungur]

ornek.xlsx dosyasını indir - download

ornek.xlsx dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Split_Data()
    Dim S1 As Worksheet, S2 As Worksheet, My_Data As Variant, X As Long
    
    Set S1 = Sheets("Sayfa1")
    Set S2 = Sheets("Sayfa2")
    
    S2.Range("D:D").ClearContents
    
    My_Data = S1.Range("A1").Value
    
    For X = 5 To 32767 Step 4
        My_Data = WorksheetFunction.Substitute(My_Data, Chr(10), "|", X)
    Next
    
    My_Data = Split(My_Data, "|")
    S2.Range("D1").Resize(UBound(My_Data) + 1) = Application.Transpose(My_Data)
    
    Set S1 = Nothing
    Set S2 = Nothing
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Bahattin Sungur]

ELİNİZE SAGLIK TAM İŞİME YARADI