Çözüldü Makroda metni bölerek alt satıra yazma

[sirkülasyon]

Sheets("SÖZLEŞME").Range("B65).Value = "1) Deneme
2) Cevap Anahtarı
3 ) Kalem
4) Form"

Şeklinde ayırarak bir satıra alt alta nasıl alabilirim?


Saygılarımla

 

[mancubus]

Sheets("SÖZLEŞME").Range("B65").Value = "1) Deneme" & vbLf & "2) Cevap Anahtarı" & vbLf & "3) Kalem" & vbLf & "4) Form"

 

[sirkülasyon]

Allah razı olsun.
Çok çok teşekkür ederim.
Sağ olasın

 

[sirkülasyon]

Sheets("SÖZLEŞME").Range("B62").Value = "1 - Puantaj cetveli ve imza çizelgesi aşağıda belirtilen şekilde tanzim edilir." & vbLf & "a) Taşımacı sabah öğrencileri okula getirdiği ve okul çıkışında öğrencileri alıp götürdüğü durumunda puantaj cetveline 2 yazılır. Sabah öğrencileri okula getirdiği ancak okul çıkışında götürmediği durumda sabah seferi yapıldığı için puantaj cetveline 1 yazılır. Okul çıkışında öğrencileri götürmediği için puantaja işlenmez. Ayrıca muayene ve kabul komisyon üyeleri tarafından tutanak tutularak okul müdürüne de bu durum onaylattırılır. Tutanak ay sonunda hak ediş belgeleri ile İlçe Millî Eğitim Müdürlüğüne teslim edilir." & vbLf & "b) Taşımacı sabah öğrencileri okula getirmediği durumda taşıma hiç yapılmamış sayılır. O güne yevmiye verilmez. Puantaj cetveline işlenmez. Ayrıca muayene ve kabul komisyon üyeleri tarafından tutanak tutularak okul müdürüne de bu durum onaylattırılır. Tutanak ay sonunda hak ediş belgeleri ile İlçe Millî Eğitim Müdürlüğüne teslim edilir." & vbLf & "c) Taş

aşağıdaki karakterler birleştirmeye uymadı. Kırmızı olarak hata verdi.

ımacı öğrenciyi okula getirdiği ve götürdüğü her gün için okul idaresince tutulan imza çizelgesine imza atmak mecburiyetindedir. Taşımacının imza çizelgesi ile puantaj cetveli birbirini tasdik edici vaziyette olmalıdır. İmza çizelgesi ya da puantaj cetveli arasında uyuşmazlık olduğu durumda o gün için ödeme yapılmaz."

Düzelte bilmem için ne yapmam lazım?
Teşekkür ederim.

 

[mancubus]

rica ederim.
bir bir hücreye bu kadar yazı yazdırmazdım.
belki word üzerinden gitmek daha doğru olur.
aşağıdaki gibi deneyin. _ ile metni bölmek lazım. yanlış aklımda kalmadı ise maksimum 24 tane _ kullanılabiliyor.

Sheets("SÖZLEŞME").Range("B62").Value = "1 - Puantaj cetveli ve imza çizelgesi aşağıda belirtilen şekilde tanzim edilir." & vbLf & _
    "a) Taşımacı sabah öğrencileri okula getirdiği ve okul çıkışında öğrencileri alıp götürdüğü durumunda puantaj cetveline 2 yazılır. " & _
    "Sabah öğrencileri okula getirdiği ancak okul çıkışında götürmediği durumda sabah seferi yapıldığı için puantaj cetveline 1 yazılır. " & _
    "Okul çıkışında öğrencileri götürmediği için puantaja işlenmez. Ayrıca muayene ve kabul komisyon üyeleri tarafından tutanak tutularak okul müdürüne de bu durum onaylattırılır. " & _
    "Tutanak ay sonunda hak ediş belgeleri ile İlçe Millî Eğitim Müdürlüğüne teslim edilir." & vbLf & _
    "b) Taşımacı sabah öğrencileri okula getirmediği durumda taşıma hiç yapılmamış sayılır. O güne yevmiye verilmez. Puantaj cetveline işlenmez. " & _
    "Ayrıca muayene ve kabul komisyon üyeleri tarafından tutanak tutularak okul müdürüne de bu durum onaylattırılır. Tutanak ay sonunda hak ediş belgeleri ile İlçe Millî Eğitim Müdürlüğüne teslim edilir." & vbLf & _
    "c) Taşımacı öğrenciyi okula getirdiği ve götürdüğü her gün için okul idaresince tutulan imza çizelgesine imza atmak mecburiyetindedir. Taşımacının imza çizelgesi ile puantaj cetveli birbirini tasdik edici vaziyette olmalıdır. " & _
    "İmza çizelgesi ya da puantaj cetveli arasında uyuşmazlık olduğu durumda o gün için ödeme yapılmaz."

 

[sirkülasyon]

Yardımınızı esirgemediğiniz için size Teşekkür ederim.
Sağ olasın