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

Katılım
10 Temmuz 2012
Mesajlar
1,254
Beğeniler
33
Excel Vers. ve Dili
2016 TR
#1
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

Destek Ekibi
Destek Ekibi
Katılım
6 Ocak 2010
Mesajlar
2,120
Beğeniler
23
Excel Vers. ve Dili
İŞ: 2016 Eng
EV: 2019 Eng
#2
Kod:
Sheets("SÖZLEŞME").Range("B65").Value = "1) Deneme" & vbLf & "2) Cevap Anahtarı" & vbLf & "3) Kalem" & vbLf & "4) Form"
 
Katılım
10 Temmuz 2012
Mesajlar
1,254
Beğeniler
33
Excel Vers. ve Dili
2016 TR
#4
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

Destek Ekibi
Destek Ekibi
Katılım
6 Ocak 2010
Mesajlar
2,120
Beğeniler
23
Excel Vers. ve Dili
İŞ: 2016 Eng
EV: 2019 Eng
#5
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.

Kod:
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."
 
Üst