If ... Then problemi

[lapot]

Arkadaslar
Asagidaki cumleyi nasil Excel VB diline cevirebiliriz.
ayrica ornek sayfayida ekliyorum

Eger Stun A daki musteri kodu MRC1 miktari -£75.00 ise ozaman sutun C deki MRC1 miktarini £100.00'a degistir.

yardimlariniz icen cok tesekkurler.

 

[bybilgin]

Merhabalar

slm Lapot Tam Olarak ne istediğinizi anlamadım



Eger Stun A daki musteri kodu MRC1 miktari -£75.00 ise ozaman sutun C deki MRC1 miktarini £100.00'a degistir.

yazmışsınız A Sutununda MRC1 miktarını ise zaten c sutununa yazmışsınız biraz daha açıklama yazarsanız yardımcı olmaya çalışacağız

 

[Seyit Tiken]

Bu kodu bir deneyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If [A1] = "€-75.00" Then [C1] = "€100.00"
End Sub

 

[hamitcan]

Aşağıdaki kodu deneyin.

Sub Auto_Open()
For Each hucre In [A1:A100]
    If hucre = "MRC1" And Cells(hucre.Row, 3) = "-75" Then
    Cells(hucre.Row, 3) = "100"
    End If
Next
End Sub

 

[lapot]

bu -75 sayis sabit her rapor aldigimda -75 olarak cikiyor . Bir cesit sistem hatasi aslinda 100 olmasi lagzim. u bir formulle makroma koyacagi ve her defasinda degistirme problemim olmayacak. umarim aciklayabilmisimdir.
yardiminiz icin simdiden tesekkurler

 

[lapot]

cok sagolun arkadaslar cevaplariniz icin asagidaki islem isme yaradi.
tesekkurler Hamitcan kardes
saygilar


Sub DEGISTIR()
For Each hucre In [A1:A100]
If hucre = "MRC1" And Cells(hucre.Row, 3) = "-75" Then
Cells(hucre.Row, 3) = "100"
End If
Next
End Sub