Hücre İçerisinde Kısmi Değişiklik

[ottoman71]

Arkadaşlar Merhaba.

Ekteki dosyada örnek olarak gösterdiğim yerde değişiklik yapmak istiyorum. Yardımcı olursanız sevinirim.

Olay aşağıdaki gibi;
1-) A6 hücresinde "++20000" değeri var. (Bu değer sürekli değişkendir.)
2-) A26 hücresinde ise "+2761+100" değeri var. (Bu değer de sürekli değişkendir.)
3-) A26 hücresindeki "+100" değerini makro ile A6 hücresindeki +20000 değerinden çıkarmak istiyorum. Sonuç olarak bana A26 hücresine "+2761-19900" yazacak.

A6 hücresindeki sabit değer "++değişken1", A26 hücrelerindeki sabit değer ise "+değişken2-değişken3" dir.

Yani; A26 hücresindeki ikinci artılı değeri A6 hücresindeki artılı değerden çıkartıp, sonucu A26 hücresindeki ikinci artıdan itibaren eksili değer olarak değiştirecek.

Teşekkürler.

 

[mesudiye_052]

Selamlar;

="+"&2761&""&100-PARÇAAL(A6;3;20)

 

[Korhan Ayhan]

Selamlar,

Sorunuzu makrolar bölümüne sormuşsunuz. Aşağıdaki kod ilk seferinde bu değişiklik işlemini yapar. Verileriniz farklılık gösteriyorsa sorgu eklemek gerekebilir.

Sub degistir()
    Veri1 = Split(Range("A6"), "+") (2)
    Veri2 = Split(Range("A26"), "+") (2)
    Range("A26") = "+" & Split(Range("A26"), "+") (1) & "-" & Veri1 - Veri2
End Sub

 

[ottoman71]

Selamlar,

Sorunuzu makrolar bölümüne sormuşsunuz. Aşağıdaki kod ilk seferinde bu değişiklik işlemini yapar. Verileriniz farklılık gösteriyorsa sorgu eklemek gerekebilir.

Sub degistir()
    Veri1 = Split(Range("A6"), "+") (2)
    Veri2 = Split(Range("A26"), "+") (2)
    Range("A26") = "+" & Split(Range("A26"), "+") (1) & "-" & Veri1 - Veri2
End Sub

Korhan Hocam Teşekkür ederim. Verdiğiniz kodlar işimi gördü.

 

[ottoman71]

Selamlar;

="+"&2761&""&100-PARÇAAL(A6;3;20)

Mesudiye Hocam,
İlgilendiğiniz için teşekkür ederim. Fakat 2761 ve 100 değerleri sabit değil ve sürekli değişkendi. Korhan Hocam'ın verdiği kodlar çalıştı.
Tekrar ilgilendiğiniz için teşekkür ederim.
İyi çalışmalar.

 

[ottoman71]

Selamlar,

Sorunuzu makrolar bölümüne sormuşsunuz. Aşağıdaki kod ilk seferinde bu değişiklik işlemini yapar. Verileriniz farklılık gösteriyorsa sorgu eklemek gerekebilir.

Sub degistir()
    Veri1 = Split(Range("A6"), "+") (2)
    Veri2 = Split(Range("A26"), "+") (2)
    Range("A26") = "+" & Split(Range("A26"), "+") (1) & "-" & Veri1 - Veri2
End Sub

Korhan Hocam,
Bu konuda tekrar yardımınıza ihtiyacım var.
Bu işlemin tam tersini yapabilir miyiz?
Ekteki dosyada ifade ettim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Sub degistir()
    Veri1 = Split(Range("A7"), "+")(2)
    Veri2 = Split(Range("A27"), "-")(1)
    Range("A27") = Split(Range("A27"), "-")(0) & "+" & Veri1 + -Veri2
End Sub

 

[ottoman71]

Selamlar,

Aşağıdaki kodu kullanabilirsiniz.

Sub degistir()
    Veri1 = Split(Range("A7"), "+")(2)
    Veri2 = Split(Range("A27"), "-")(1)
    Range("[COLOR="Red"]A[/COLOR]27") = Split(Range("A27"), "-")(0) & "+" & Veri1 + -Veri2
End Sub

Korhan Hocam bir kez daha teşekkür ederim.
İyi çalışmalar.

 

[Korhan Ayhan]

Selamlar,

Renklendirdiğiniz bölümü deneme yaparken kullanmıştım. Foruma eklerken düzeltmeyi unutmuşum. Mesajımda gerekli düzeltmeyi yaptım.

 

[ottoman71]

Korhan Hocam,
Belki buna benzer olay başka arkadaşların işine yararsa diye düzeltme gereği duydum.
İlgi ve alakanıza teşekkür ederim.
İyi çalışmalar.