Mal Grubu Koduna Göre hücreye metin yazma

[umut100]

Merhaba.
SAP sisteminden alınma bir raporum var. Bu raporda mal grupları var ancak mal grup adı satırı boş. Mal grup koduna göre hemen yan satıra kendi belirleyeceğim ismi getirmesiniistiyorum. Bu rapor her ay güncellenecek yani ben her ay tekrar formül yazmam çok zor. Pratik bir yol gösterebilirmisiniz. Yok formülsüz olmaz derseniz. Formülede razıyım.

Şimdiden teşekkür ederim.

 

[xternet]

Dosyayı bir inceleyiniz. İstediğiniz bu olabilir.

 

[N.Ziya Hiçdurmaz]

yanıt

Formül yazmak istemiyorsanız.kod kullanınız(kodu sayfa kod bölümüne uygulayın)

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim sat As Integer
    If Intersect(Target, [c:c]) Is Nothing Then Exit Sub
        For sat = 2 To Cells(65536, "c").End(xlUp).Row
            If Cells(sat, "c") = "5101.01" Then Cells(sat, "b") = "PİKLER1"
            If Cells(sat, "c") = "5101.02" Then Cells(sat, "b") = "PİKLER2"
         Next
End Sub

 

[umut100]

Sn.Xternet Sn.N.Ziya HİÇDURMAZ sayenizde iki alternatifim oldu. Çok Teşekkür ederim ilginize alakanıza.

İyi Günler Diliyorum