eğer fonksiyonun makrosu denilebilir

[uguristanbul]

formları aradım baktım ama kendime uyarlayamadım asagıdaki dosyayı hocalarım bir inceleyip yardımcı olurlarsa memnun olurum
saygılar

 

[Korhan Ayhan]

Selamlar,

Ben dosyanızı inceledim kusura bakmayın ama açıklama yazmadığınız için ne istediğinizi anlayamadım. Lütfen detaylı açıklama yaparmısınız.

 

[uguristanbul]

sorunu label a yazmıştım ama silinmiş

sorunum şu: 7 nci satır için örnek veriyorum ama tüm satırlar için uygulanacaktır.eğer c7 hücresi "s" ise d7 ile e7 yi carpıp sonucu f7 ye yazacak ve g 7 de 0 yazacak.Ancak c7 a ise d7 ile e 7 yi carpıp sonucu g7e yazıp f7 yede 0 yazacak

 

[İhsan Tank]

sorunum şu: 7 nci satır için örnek veriyorum ama tüm satırlar için uygulanacaktır.eğer c7 hücresi "s" ise d7 ile e7 yi carpıp sonucu f7 ye yazacak ve g 7 de 0 yazacak.Ancak c7 a ise d7 ile e 7 yi carpıp sonucu g7e yazıp f7 yede 0 yazacak

merhaba
fonksiyonla çözüm işinizi görür se bunu kullanabilirsiniz
f7 hücresine

=EĞER($C7="s";($D7*$E7);EĞER($C7="a";0;""))

g7 hücresine

=EĞER($C7="a";($D7*$E7);EĞER($C7="s";0;""))

bu formülleri yazıp aşağıya doğru çekiniz.

 

[Korhan Ayhan]

Selamlar,

Eğer bu işlemi bir buton ile yapmak istiyorsanız aşağıdaki kodu deneyin.

Option Explicit
 
Sub BAKİYELERİ_HESAPLA()
    Dim X As Long
    
    For X = 7 To Range("A65536").End(3).Row
        If UCase(Cells(X, "C")) = "S" Then
            Cells(X, "F") = Cells(X, "D") * Cells(X, "E")
            Cells(X, "G") = 0
        ElseIf UCase(Cells(X, "C")) = "A" Then
            Cells(X, "G") = Cells(X, "D") * Cells(X, "E")
            Cells(X, "F") = 0
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

Eğer hücrelere veri girdiğiniz anda bu işlemlerin olmasını istiyorsanız aşağıdaki kodu sayfanın kod bölümüne uygulayın. C-D-E sütunlarına veri girdikçe hesaplamalar otomatik yapılır.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [C7:E65536]) Is Nothing Then Exit Sub
    If Target.Row < 7 Then Exit Sub
    
    If UCase(Cells(Target.Row, "C")) = "S" Then
        Cells(Target.Row, "F") = Cells(Target.Row, "D") * Cells(Target.Row, "E")
        Cells(Target.Row, "G") = 0
    ElseIf UCase(Cells(Target.Row, "C")) = "A" Then
        Cells(Target.Row, "G") = Cells(Target.Row, "D") * Cells(Target.Row, "E")
        Cells(Target.Row, "F") = 0
    End If
Son:
End Sub

 

[uguristanbul]

hocam teşşekur ederim mükemmel çalışıyor ellerinize sağlık