Çözüldü Sipariş Numarası Oluşturma

[Yasin Boyraz]

Merhabalar elimde olan ürünlerin rastgele şekilde (HARF,SAYI,SAYI (örn. F13)) önek oluşturmak istiyorum fakat çoğu sitelere bakmama rağmen çözüm sağlıyamadım yardım ederseniz sevinirim

 

[Merhum İdris SERDAR]

.

İşinize yarayabilir.


http://www.excelgurusu.com/fatura-tarihine-gore-islem-numarasi/


.

 

[Yasin Boyraz]

.

İşinize yarayabilir.


http://www.excelgurusu.com/fatura-tarihine-gore-islem-numarasi/


.

cevabınız için teşekkürler fakat demek istediğim bu değil A15 - B11 C56 tarzı olacak

 

[Merhum İdris SERDAR]

.

Bir örnek dosya eklerseniz, daha uygun olur.

.

 

[Yasin Boyraz]

örnek dosya mevcut değildir

 

[veyselemre]

Sub rastgeleKod()
    For i = 1 To 100
        k = Chr(WorksheetFunction.RandBetween(65, 90))
        k = k & Format(WorksheetFunction.RandBetween(1, 99), "00")
        Cells(i, 1) = k
    Next i
End Sub

Function rastgeleUret()
        k = Chr(WorksheetFunction.RandBetween(65, 90))
        k = k & Format(WorksheetFunction.RandBetween(1, 99), "00")
        rastgeleUret = k
End Function

 

[Yasin Boyraz]

Sub rastgeleKod()
    For i = 1 To 100
        k = Chr(WorksheetFunction.RandBetween(65, 90))
        k = k & Format(WorksheetFunction.RandBetween(1, 99), "00")
        Cells(i, 1) = k
    Next i
End Sub

Function rastgeleUret()
        k = Chr(WorksheetFunction.RandBetween(65, 90))
        k = k & Format(WorksheetFunction.RandBetween(1, 99), "00")
        rastgeleUret = k
End Function

evet istemiş olduğum buydu çok teşekkür ederim