depo

[topal52]

ekte verdiğim depo programını burda öğrendiğim bilgilerle bayagı yaptım sayılır ustalara teşekkürler fakat bi yerde takıldım ekteki dosyada açıklama sayfasında isteğim özelliği anlattım yapılabılırmı acaba bakabılırmısnız.

 

[Ali]

Açıklama sayfası nerede?

.

 

[topal52]

şimdi yazdım ustam yazdım düzelttim özür

 

[Ali]

Durum sayfasının içine aşağıdaki kodları ekleyiniz.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Git
If Intersect(Target, [B2:B151]) Is Nothing Then Exit Sub
Sheets("BİLGİ").Range("A2") = Target.Value
Sheets("BİLGİ").Select
Git:
End Sub

 

[topal52]

usta eline sağlık olmuş tıkladıgım malzeme dediğim yere geçiyor fakat tıkladıgım anda hem malzeme geçsin hemde o bilgi sayfası açılsın malzemeye tıkladıgımda bilgi sayfasının açılabılmesi için o verdiğin koda nası bişe eklemem lazım acaba

 

[Ali]

Kodu üstte güncelledim.

.

 

[topal52]

teşekkürler usta istediğim gibi oldu sağol inş bizlerde sayenizde bu verdiğiniz kodlar üzerinde oynamalar yapıp öğreniriz de forumda sizler gibi soru cevaplar katkımız olur.