Sutundaki Şarta bağlı olarak Sayıyı Eksiye Çevirme

[halit33]

Merhaba Arkadaşlar,

Sorunum bir sutundaki a ve b harflerine göre diğer bir sütündaki sayıyı eksiye çevirmeyi hangi formülle yapabileceğimi bir türlü çözememiş olmamdır.

I Sutunü B veya A
J sutunu sayı

K Stünuna I A İSE J- Karekterli olsun komutunu nasıl verebiliriz.

Kısacası I a ise jdeki sayı - olsun istiyorum. Kısa yoldan nasıl yapılabilir.

 

[bzace]

Merhaba,
Bir modülün içerisine yazıp kodu çalıştırınız.

Sub Hatkoy()
j = Cells(Rows.Count, "I").End(xlUp).Row
For i = 1 To j
  If Cells(i, "I") = "A" Or Cells(i, "I") = "B" Then
    Cells(i, "J") = Cells(i, "J") * -1
  End If
Next
End Sub

Saygılar,
Kafe

 

[halit33]

Teşekkürler @bzace

Daha önce hiç modül şeklinde işlem yapmadım. İlk denemem olacak, eğer bu arada formül örnekleri gelirsede sevinirim.

 

[halit33]

Yazdığınız Modülü çalıştırdım. Yanlız Sadece a olanları değil tamamını - karekterli yapıyor.

Benmi yanlış uyguladım acaba?

 

[bzace]

Koşullu biçimlendirme ile yapmaya çalışalım.
J sütununu seçip Koşullu biçimlendirme / Yeni kurul / Formül kullan

Formül çubuğuna;

=$I1="A"

yazıp biçim ayarlarınızdan (isteğe uyarlanmış) -0,00 seçiminizi yapıp deneyiniz.

Not: B harfi için aynı işlemi yapınız.

 

[halit33]

Hocam söylediğinizi denedim. Yanlız yine bir işlem yapmadı. Acaba koşullu biçimlendirmeyi yapıyorken aynı zamanda modüle bilgi girişi yapmakmı gerekir.

 

[yasinkurt06]

Bzacenin verdiği kodu güncelledim. B ile ilgili kısmı sildim.
Bu şekilde dener misiniz ?

Sub Hatkoy()
j = Cells(Rows.Count, "I").End(xlUp).Row
For i = 1 To j
If Cells(i, "I") = "A" Then
Cells(i, "J") = Cells(i, "J") * -1
End If
Next
End Sub

 

[Merhum İdris SERDAR]

Merhaba Arkadaşlar,

Sorunum bir sutundaki a ve b harflerine göre diğer bir sütündaki sayıyı eksiye çevirmeyi hangi formülle yapabileceğimi bir türlü çözememiş olmamdır.

I Sutunü B veya A
J sutunu sayı

K Stünuna I A İSE J- Karekterli olsun komutunu nasıl verebiliriz.

Kısacası I a ise jdeki sayı - olsun istiyorum. Kısa yoldan nasıl yapılabilir.

.

K1 hücresine;

=EĞER(I1="A";J1*-1;J1)

yazıp, aşağıya doğru kopyalayın.

.

 

[halit33]

Her iki işlemdede sonuç istediğim gibi oldu. Yardımcı olan 3 arkadaşada teşekkür ederim.

Bzacenin verdiği kodu güncelledim. B ile ilgili kısmı sildim.
Bu şekilde dener misiniz ?

Sub Hatkoy()
j = Cells(Rows.Count, "I").End(xlUp).Row
For i = 1 To j
If Cells(i, "I") = "A" Then
Cells(i, "J") = Cells(i, "J") * -1
End If
Next
End Sub

.

K1 hücresine;

=EĞER(I1="A";J1*-1;J1)

yazıp, aşağıya doğru kopyalayın.

.