harf ve sayılı sıralı veri üretme

[karakoc39]

merhabalar

tek tıklama ile sıralı şekilde LBPET25.1,LBPET25.2,LBPET25.3 ve 9999 a kadar belirnenen hücreye veri oluşturmak istiyoruz
forumu aradım fakat bulamadım
bu harf ve rakamlar değiştirilebilir olmalı hedef hücre B2 Oolsun ( tabi o da değişebilir )
şimdiden teşekkürler

 

[Muzaffer Ali]

Merhaba.

Sub Test()
    Dim SabitDeger As String
    Dim IlkHucre As String
    Dim Adet As Long
    
    SabitDeger = "LBPET25."
    IlkHucre = "B2"
    Adet = 999
    
    Range(IlkHucre) = SabitDeger & 1
    Range(IlkHucre).Offset(1, 0) = SabitDeger & 2
    Range(IlkHucre).Resize(2, 1).AutoFill Destination:=Range("B2:B" & Range(IlkHucre).Row + Adet - 1)
End Sub

 

[karakoc39]

merhaba Muzaffer hocam
elinize sağlık fakat kod istediğim gibi çalışmıyor
kodu çalıştırdığımda sadece b2 hücresinde değil b1000 hücresine kadar dolduruyor
benim amacım butona tıklanınca sadece b2 hücresine sırası ile LBPET25.1,LBPET25.2,LBPET25.3 .... gelmesidir
bu konuda yardımcı olursan sevinirim
birde kodu butona makro kaydederek mi ekleyeceğiz
teşekkürler

 

[karakoc39]

aşağıdaki kod kısmen istediğim gibi ama sadece rakam arttırıyor yazılı olarak artmıyor

Sub addme()
i = ActiveCell
ActiveCell.Value = (i + 1)
End Sub

 

[karakoc39]

merhabalar
bir örnek ekledim
yardım rica ederim

deneme.xlsm dosyasını indir - download

deneme.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

 

[Muzaffer Ali]

Dosya ekte.

İndir deneme (8) xlsm

Dosyayı indir deneme (8) xlsm

dosya.co

 

[karakoc39]

Dosya ekte.

İndir deneme (8) xlsm

Dosyayı indir deneme (8) xlsm

dosya.co

Muzaffer Hocam
Tek kelime ile HARiKA Çok teşekkürler
iyi çalışmalar dilerim