sayı değilde harf değiştiren numaratör

[bornovalı1]

Merhaba;
Makroyu her çalıştırdığımda hücredeki rakamı değiştiriyor.Fakat ben kopyalanmasının önüne geçmek için yanındaki hücrede yazan harf kombinasyonunu da değiştirmek istiyorum.
A1 hücresinde AH yazıyor B1 hücresinde makroyu çalıştırdığımda numarayı değiştirebiliyorum.Ama harf kombinasyonuna bir şey yapamadım.
Böyle birşey mümkün mü?
Yardımcı olursanız sevinirim.Teşekkürler.

Sub Button1_Click()
For k = 1 To 1
[B1] = [B1] + 1

Range("B1").NumberFormat = "00000"
ActiveWindow.SelectedSheets.PrintOut Copies:=1

Next

End Sub

 

[Necdet]

Merhaba,

Sorunuzu örnek ile açıklayınız. Ben hiç bir şey anlamadım.

 

[bornovalı1]

Necdet bey;
Örnek ekledim. A hücresinde AD diye bir harf serisi var makroyu çalıştırınca b hücresindeki rakamlar birer birer artıyor.
Ben A hücresindeki harflerinde değişmesini istiyorum.
AD olan harfler FT olsun bir sonrakinde FT olan GK olsun harflerin sıralaması önemli değil iki harfinde gelişi güzel değişmesi önemli olan.
Eğer olabilirse oluşan bu harf ve rakam kombinasyonun ikinci sayfada A sütünuna yukarıdan aşağıya doğru kaydetmesi.

İlginiz için teşekkür ederim

 

[srkn0222]

merhabalar
EK'teki dosyayı inceleyin. istediğiniz gibi oldu sanırım.

 

[bornovalı1]

srkn0222
Teşekkür ederim tam istediğim gibi olmuş elinize sağlık