HÜCREYE VERİ GİRİLDİĞİNDE YANINA OTOMATİK DEĞER GETİR

[hgenc545]

Merhaba;

Dosyanın içinde isteğimi belirttim ancak özetlemek gerekirse;

-Veri doğrulama ile A stununa veri seçilip girildiğinde, hemen yanındaki hücrelere istenilen değerler gelmeli.
-Butonla değil change yordamıyla sanırım çalışmalı. Veri doğrulamada yer alan bilgli hücreye seçildiğinde hemen formülle yandaki hücreler dolmalı.
-Ve boş hücreler dolupta işlem bitince bir alt boş satırda otomatik beklemeli.

Şimdiden yardımınız için teşekkürler

 

[Ömer]

Merhaba,

Özet sayfası kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim S1 As Worksheet
    Set S1 = Sheets("sabitler")
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    With Target
        If .Count > 1 Then Exit Sub
        If .Row < 2 Then Exit Sub
        If Cells(.Row, "A") <> "" Then
            Cells(.Row, "C") = 1
            Cells(.Row, "E") = WorksheetFunction.SumIf(S1.[A:A], .Value, S1.[B:B])
        Else
            Cells(.Row, "C") = ""
            Cells(.Row, "E") = ""
        End If
    End With
End Sub

 

[hgenc545]

@Ömer harika oldu üstad, elinize sağlık