A1 deki veriyi baklava biçiminde hücrelere dağıtma

[remzi1991]

Arkadaşlar,
ben a1 sutununa bir değer girdiğimde o yazdığım metni baklava şeklinde her bir hücrede tek tek harfler yazıcak bunun için yardım edermisiniz

İyi çalışmalar

 

[yucel baygul]

sn remzi1991 PARÇAAL fonksiyonuyla bu işlemi yapabilirsiniz. ayrıca dosya ektedir.

 

[remzi1991]

sayın yucel istediğim tam olarak bu değil
ben aşağıda eklediğim dosya gibi gözüksün istiyorum

 

[remzi1991]

hala bir sonuca varamadım

 

[Korhan Ayhan]

Selamlar,

12 karaktere kadar kontrol eden bir örnek dosya hazırladım. İncelermisiniz.

 

[remzi1991]

sayın Korhan Ayhan

ilginiz ve yardımınız için teşekkürler

 

[remzi1991]

bu işlemi for döngüsüyle nasıl yapabiliriz
daha kısa olsun diye

 

[remzi1991]

yok mu bu konuda hiç bir fikri olann

 

[czeki]

Malesef Olmadi

 

[Necdet]

Baklava Tipi Yazdırma

Merhaba,

Kısa sürede hazırladığım kodları sunuyorum. Algoritmayı iyi düşününce kodlar daha kısa olabilir, eee zaman sorunu, idare ediniz artık.

Kodları deneyiniz, umarım yanlış çalışmaz.

Sub BaklavaGibiDose()
Application.ScreenUpdating = False
Range("B1:Z100").ClearContents
Adet = Application.WorksheetFunction.RoundUp(Len([A1]) / 4, 0) + 1
BasKolon = Adet + 1
BasSatır = 1
For i = 1 To Adet
    Cells(BasSatır, BasKolon) = Mid([A1], i, 1)
    BasSatır = BasSatır + 1
    BasKolon = BasKolon + 1
Next i
BasKolon = BasKolon - 2
For i = i To i + Adet - 2
    Cells(BasSatır, BasKolon) = Mid([A1], i, 1)
    BasSatır = BasSatır + 1
    BasKolon = BasKolon - 1
Next i
BasSatır = BasSatır - 2
For i = i To i + Adet - 2
    Cells(BasSatır, BasKolon) = Mid([A1], i, 1)
    BasSatır = BasSatır - 1
    BasKolon = BasKolon - 1
Next i
BasKolon = BasKolon + 2
For i = i To i + Adet - 3
    Cells(BasSatır, BasKolon) = Mid([A1], i, 1)
    BasSatır = BasSatır - 1
    BasKolon = BasKolon + 1
Next i
Application.ScreenUpdating = True
End Sub

 

[remzi1991]

sayın nejdet yeşertener

gerçekten muhteşem ve tam dilediğim gibi olmuş elinize ve emeğinize teşekkürler.cok sağolun varolun

 

[remzi1991]

hocam bu arkadasın gonderdıgı eklentıyı nasıl alabılırım sızde yedegı falan var mıdır? arkds uyelıgnı kaldırdıgı ıcın ındırılmıo sanırım?

 

[remzi1991]

acil lazım ilgilenirseniz teşekkur ederım. . bu hafta sonuna kadar. .

 

[Ömer]

acil lazım ilgilenirseniz teşekkur ederım. . bu hafta sonuna kadar. .

Merhaba,

Necdet Bey 10. mesajında kodları vermiş, bu kodları kullanabilirdiniz, eki inceleyiniz..

.

 

[Necdet]

Merhaba,

10. mesajdaki kodlar ve dosya yeniden eklendi.
Bakan arkadaşlar için dosyaya erişim sorunu olmasın.