formülü kod'a yazma mantığı

[ermanusta]

merhaba,
mantığını açıklayabilecek arkadaş varmı bilmiyorum ama bu şekilde sayfada birçok eğer formulü var ve dolayısıyla çalışması zor oluyor. bunları koda yapıştırıp rahat bir çalışma sayfası yaratmak istiyorum.

inceledim ancak formüllerin makroya aktarılmasında izlenen bir yol bulamadım.
aşağıdaki formülü kod şeklinde yazabilirseniz inceleyerek bir mantık oluşturmaya çalışmak ve işin aslını öğrenip işimi kolaylaştırmak istiyorum

şimdiden teşekkür ederim. iyi çalışmalar.


=EĞER(E84="";"";EĞER(N83="Stok";"";EĞER(M84="";"";N83)))

 

[NBATMAN]

Merhaba,

konu ile ilgili İf Then Else şeklinde bir arama yapın onlarca konu ve ve anlatım bulabilirsiniz.

Misal:

http://www.excel.web.tr/f48/if-then-else-nasyl-kullanylyyor-t51900.html

 

[ermanusta]

Merhaba,

konu ile ilgili İf Then Else şeklinde bir arama yapın onlarca konu ve ve anlatım bulabilirsiniz.

Misal:

http://www.excel.web.tr/f48/if-then-else-nasyl-kullanylyyor-t51900.html

ben hep eğer aratmıştım
teşekkür ederim bir de böyle deneyeyim

 

[NBATMAN]

Rica ederim.
Kolay gelsin.

 

[antonio]

merhaba,
mantığını açıklayabilecek arkadaş varmı bilmiyorum ama bu şekilde sayfada birçok eğer formulü var ve dolayısıyla çalışması zor oluyor. bunları koda yapıştırıp rahat bir çalışma sayfası yaratmak istiyorum.

inceledim ancak formüllerin makroya aktarılmasında izlenen bir yol bulamadım.
aşağıdaki formülü kod şeklinde yazabilirseniz inceleyerek bir mantık oluşturmaya çalışmak ve işin aslını öğrenip işimi kolaylaştırmak istiyorum

şimdiden teşekkür ederim. iyi çalışmalar.


=EĞER(E84="";"";EĞER(N83="Stok";"";EĞER(M84="";"";N83)))

Buyurun kodlarınız:
Range("...") olarak yazılı yer söz konusu sonucun görüntüleceği hücredir.
(doldurmayı unutmayınız.)

If Range("E84").Value = "" Then
    Range("...").Value = ""
ElseIf Range("N83").Value = "Stok" Then
    Range("...").Value = ""
ElseIf Range("M84").Value = "" Then
    Range("...").Value = ""
Else
    Range("...").Value = Range("N83").Value
End If

 

[ermanusta]

basit bir kullanıcı için çok karışık bir durum olduğunu farkettim.
rica etsem ekteki ufak bir örneği çevirebilirmisiniz. ben onun üzerinden diğerlerini yapmaya çalışayım

 

[ermanusta]

Buyurun kodlarınız:
Range("...") olarak yazılı yer söz konusu sonucun görüntüleceği hücredir.
(doldurmayı unutmayınız.)

If Range("E84").Value = "" Then
    Range("...").Value = ""
ElseIf Range("N83").Value = "Stok" Then
    Range("...").Value = ""
ElseIf Range("M84").Value = "" Then
    Range("...").Value = ""
Else
    Range("...").Value = Range("N83").Value
End If

Sn:Antonio
formüllerin tüm stün boyunca devam edeceği noktasını belirtmemişim sanırım. ekte bir dosya var 3 formül bulunuyor. inceleyebilir misiniz?

 

[antonio]

Sub kodlar()
Dim ss As Long
With Sayfa1
    ss = .Range("B" & Rows.Count).End(3).Row
    For i = 2 To ss
        If .Range("B" & i).Value = "" Then
            .Range("F" & i).Value = ""
        ElseIf .Range("B" & i).Value = "A" Then
            .Range("F" & i).Value = "X"
        Else
            .Range("F" & i).Value = .Range("F" & i - 1).Value
        End If
    Next i
End With
End Sub

Örnek Dosyanız ektedir.

 

[ermanusta]

Sub kodlar()
Dim ss As Long
With Sayfa1
    ss = .Range("B" & Rows.Count).End(3).Row
    For i = 2 To ss
        If .Range("B" & i).Value = "" Then
            .Range("F" & i).Value = ""
        ElseIf .Range("B" & i).Value = "A" Then
            .Range("F" & i).Value = "X"
        Else
            .Range("F" & i).Value = .Range("F" & i - 1).Value
        End If
    Next i
End With
End Sub

Örnek Dosyanız ektedir.

emeğinize teşekkür ederim, ama sanırım bu kodları sayfanın kod bölümüne ekleyemiyorum. makro olarak kaydetmişsiniz. sayfanın kod bölümüne yazarak tuşa basmadan otomatik olarak çalışması için ne yapmam gerekir acaba ?

 

[ermanusta]

konu güncel arkadaşlar

 

[antonio]

Dosyanız ektedir.