çapa göre pul yazdırmak

[k0081]

merhaba arkadaşlar;
çap= M20, M16

M20x55 CİVATA, M20X45 CİVATA, M16X85 gibi değerlerim sabit.. bu sıralama bitimine;

M20 PUL biçimini nasıl yazdırabilirim ?

Ekli dosyayı görüntüle rapor1.xlsx

 

[Emir Hüseyin Çoban]

. . .

Soldan 3 karakter her zaman sabit mi ?
Listelemeye A sütunun bitiminden mi devam edecek ? Yoksa B sütununa yapılabilir mi ?

. . .

 

[k0081]

. . .

Soldan 3 karakter her zaman sabit mi ?
Listelemeye A sütunun bitiminden mi devam edecek ? Yoksa B sütununa yapılabilir mi ?

. . .

evet sabit.. A sütunun bitiminden yani M16X85 CİVATA bunun ardından başlayacak.. birde hocam mesela M20 iki tane var bunu tek olarak yazdırabiliriz... (ben örnek dosyada iki tane yazmışım M20 yi.. bir tane yeterli..)

 

[Emir Hüseyin Çoban]

. . .

Sub kod()
Application.ScreenUpdating = False
son = [A65536].End(3).Row
son2 = [A65536].End(3).Row + 1

For i = 1 To son
Cells(son + 1, "A") = Cells(i, "A").Characters(Start:=1, Length:=3).Text & " PUL"
son = son + 1
Next i

For a = [A65536].End(3).Row To son2 Step -1
If Cells(a, "A") = Cells(a - 1, "A") Then Rows(a).Delete
Next a
Application.ScreenUpdating = true
MsgBox " B İ T T İ "
End Sub

. . .

 

[k0081]

Hüseyin Çoban;
*************

Hocam çok teşekkürler,, tamamdır.. Allah razı olsun..