DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba arkadaşlar,
Ekteki dosyada malzeme listesi bulunuyor. Malzemeyi seçince otomatik olarak "lot" numarasını vermesini istiyorum. Ama yapamadım..
(dosya içinde açıklama var.)
Yardımcı olabilirmisiniz ?
=EĞER(F2="";"";"M.LOT.2011-"&METNEÇEVİR(SATIRSAY($J$2:J2);"000000"))
Merhaba arkadaşlar,
Ekteki dosyada malzeme listesi bulunuyor. Malzemeyi seçince otomatik olarak "lot" numarasını vermesini istiyorum. Ama yapamadım..
(dosya içinde açıklama var.)
Yardımcı olabilirmisiniz ?
Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F2:F65536")) Is Nothing Then Exit Sub
Range("J2") = "M.LOT.2011-000001"
Range("J2:J" & Target.Row).DataSeries Rowcol:=xlColumns, Type:=xlAutoFill, _
Date:=xlDay, step:=1, Trend:=True
End Sub
Pardo İhsan hocam şimdi denedim harika bir şekilde sonuç alıyorum tekrar teşekkür ediyorum.
İhsan hocam bir sorum daha olacaktı..!
Malzeme seçimini yaptığım sütunda "liste kutusu"ndan seçim yapıyorum. Bu liste alfabetik veya malzemenin baş harfini girdiğimde seçtiğim harfe göre ilgili malzemeler getirilebilrimi ?
Veya malzeme seçme ile ilgili farklı bir öneriniz olabilir mi?