yeni kod üretmek.

[igultekin2000]

iyi akşamlar; ürün cinsi ve fiyat aralığına göre yeni bir ürün kodu üretmek istiyorum. excel' ile olmasına rağmen fiyat aralığı değiştikçe yeniden formül yazmak zaman alıyor, makro ile olabilir mi? örnek dosyayı ekledim.

 

[Orion1]

Dosyanız ektedir.

Sub yenikod59()
Dim sonsat As Long, i As Long
sonsat = Cells(Rows.Count, "C").End(xlUp).Row
Range("O2:O" & Rows.Count).ClearContents
Application.ScreenUpdating = False
For i = 2 To sonsat
    Cells(i, "O").Value = Cells(i, "C").Value & " - " & Cells(i, "N").Value & " TL"
Next i
Application.ScreenUpdating = True
MsgBox "YENİ KODLAR VERİLDİ." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[igultekin2000]

sorunsuz çalışıyor

Dosyanız ektedir.

Sub yenikod59()
Dim sonsat As Long, i As Long
sonsat = Cells(Rows.Count, "C").End(xlUp).Row
Range("O2:O" & Rows.Count).ClearContents
Application.ScreenUpdating = False
For i = 2 To sonsat
    Cells(i, "O").Value = Cells(i, "C").Value & " - " & Cells(i, "N").Value & " TL"
Next i
Application.ScreenUpdating = True
MsgBox "YENİ KODLAR VERİLDİ." & vbLf & "evrengizlen@hotmail.com"
End Sub

teşekkürler, sorunsuz çalışıyor

 

[Orion1]

teşekkürler, sorunsuz çalışıyor

Rica ederim.
İyi çalışmalar.