ramazankaya89
Yeni Üye
- Katılım
- 8 Haz 2024
- Mesajlar
- 63
- Aldığı beğeni
- 10
- Excel V
- Office 2019 TR
Konu Sahibi
Arkadaslar Merhaba,
Makro ile metinbirleştir kodum asagıdaki gibi olup bu kodu aralıkta buldugu ilk 50 degeri dikkate alıp 50'şer periyortlarda yazdırması mümkün mü
For i = 2 To S4.Range("A2").End(xlDown).Row
If S4.Cells(i, 1).Value <> "" Then
Metin = Metin & S4.Cells(i, 1).Value & "-"
End If
Next
If Len(Metin) > 0 Then
Metin = Left(Metin, Len(Metin) - 1)
End If
S4.Range("C1").Value = Metin
Örnegin ilk elliyi S4.Range("C1")'e sonraki ellileri alt alta C2 varsa C3 varsa C4 ... gibi yazarak devam edecek
bunun icin nereye düzeltme yapmam gerekiyor
Makro ile metinbirleştir kodum asagıdaki gibi olup bu kodu aralıkta buldugu ilk 50 degeri dikkate alıp 50'şer periyortlarda yazdırması mümkün mü
For i = 2 To S4.Range("A2").End(xlDown).Row
If S4.Cells(i, 1).Value <> "" Then
Metin = Metin & S4.Cells(i, 1).Value & "-"
End If
Next
If Len(Metin) > 0 Then
Metin = Left(Metin, Len(Metin) - 1)
End If
S4.Range("C1").Value = Metin
Örnegin ilk elliyi S4.Range("C1")'e sonraki ellileri alt alta C2 varsa C3 varsa C4 ... gibi yazarak devam edecek
bunun icin nereye düzeltme yapmam gerekiyor
