eğer förmülü hakkında

[sagopakajmer]

üstadlar benim ekte gönderdiğim dosyada a1 hücresinde A harfi var ise B1 hücresindeki rakam aynı kalsın B harfi var ise B1 hücresindeki rakamın başına - gelsin istiyorum. ancak formülü kuramadım. yardım ederseniz sevinirim. teşekkürler

 

[İhsan Tank]

bu rakamları siz mi belirliyorsunuz yoksa
belli bir yerden mi alıyorsunuz

 

[quesh]

Sanırım bu kod işinizi görür.

Sub degis()
For i = 1 To 6
If Cells(i, 1) = "B" Then
Cells(i, 2) = "-" & Cells(i, 2)
End If
Next
End Sub

 

[sagopakajmer]

rakamlar banka ekstrası olarak geliyor bize ama kullandığımız sisteme aktarmak için eksi bakiyelerin belirtilmesi gerekiyor o yüzden gerekli bu.

 

[sagopakajmer]

Sanırım bu kod işinizi görür.

Sub degis()
For i = 1 To 6
If Cells(i, 1) = "B" Then
Cells(i, 2) = "-" & Cells(i, 2)
End If
Next
End Sub

teşekkürler deniyorum hemen emeğinize sağlık

 

[sagopakajmer]

çok sağolun sayın quesh kod çalışıyor emeğinize sağlık