Sütunlardaki rakamları otomatik bölmek ve çarpmak

[thecarow]

Merhaba;
Ekte olan örnek içerisinde net olarak anlatmaya çalıştım ama dosyayı indirmek istemeyen arkadaşlar için açıklamam gerekirse;
F ve G sütunlarında bazı rakamlar var.Birinci amacım F ve G sütununa eklediğim rakamları otomatik olarak 10.000 ile bölmek.Arkasından D sütununda bulunan değerlerden "103" ve "105" yazılı değerlerin olduğu satırlardaki F ve G sütunundaki rakamları -1 ile çarpmak.Umarım net olarak anlatabilmişidir.
Saygılarımla.

 

[İhsan Tank]

Merhaba;
Ekte olan örnek içerisinde net olarak anlatmaya çalıştım ama dosyayı indirmek istemeyen arkadaşlar için açıklamam gerekirse;
F ve G sütunlarında bazı rakamlar var.Birinci amacım F ve G sütununa eklediğim rakamları otomatik olarak 10.000 ile bölmek.Arkasından D sütununda bulunan değerlerden "103" ve "105" yazılı değerlerin olduğu satırlardaki F ve G sütunundaki rakamları -1 ile çarpmak.Umarım net olarak anlatabilmişidir.
Saygılarımla.

Merhaba
boş bir module kopyalayın ve deneyin

Option Explicit
Sub çarp_böl_61()
Dim ts, kaplan, trabzonspor, mavi, bordo As Date
trabzonspor = MsgBox("Bölüp Çarpmaya Başlıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
bordo = Time
For ts = 3 To Cells(Rows.Count, "A").End(xlUp).Row
kaplan = Cells(ts, "F")
mavi = Cells(ts, "G")
Cells(ts, "F") = kaplan / 1000
Cells(ts, "G") = mavi / 1000
If Cells(ts, "E") = 105 Or Cells(ts, "E") = 103 Then
kaplan = Cells(ts, "F")
mavi = Cells(ts, "G")
Cells(ts, "F") = kaplan * -1
Cells(ts, "G") = mavi * -1
End If
Next
Application.ScreenUpdating = True
MsgBox Format(bordo - Time, "hh:mm:ss") & vbLf _
& "Sürede İşlemi Tamamladım", vbInformation, "Bitiş"
End Sub

 

[thecarow]

Hocam;
Öncelikle ilginize teşekkür ederim.Evet formül çalışıyor fakat,amacım önce tüm F VE G sütunundaki tüm hücreleri 10.000 ile bölmek daha sonra 105 ve 103 karşısındaki rakamları -1 ile çarpmak.Şu an sadece bu iki değer karşısındaki rakamları bölüyor.

 

[İhsan Tank]

Hocam;
Öncelikle ilginize teşekkür ederim.Evet formül çalışıyor fakat,amacım önce tüm F VE G sütunundaki tüm hücreleri 10.000 ile bölmek daha sonra 105 ve 103 karşısındaki rakamları -1 ile çarpmak.Şu an sadece bu iki değer karşısındaki rakamları bölüyor.

Merhaba
Üstteki kodu güncelledim. Tekrar deneyin.

 

[thecarow]

Hocam teşekkür ederim.Emeğinize sağlık.

 

[İhsan Tank]

Hocam teşekkür ederim.Emeğinize sağlık.

Rica ederim
:keyif:

 

[thecarow]

merhaba;
Bu örnekteki makroyu nasıl sadece bir sayfa için uyarlayailirin.Örneğin "deneme" sayfası için.

 

[İhsan Tank]

merhaba;
Bu örnekteki makroyu nasıl sadece bir sayfa için uyarlayailirin.Örneğin "deneme" sayfası için.

Merhaba
Kodu ya o sayfanın kod bölümüne kopyalayın yada module'deki kodu bununla değiştirin.

Option Explicit
Sub çarp_böl_61()
Dim ts, kaplan, trabzonspor, mavi, bordo As Date
trabzonspor = MsgBox("Bölüp Çarpmaya Başlıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Application.ScreenUpdating = False
bordo = Time
For ts = 3 To Sheets("deneme").Cells(Rows.Count, "A").End(xlUp).Row
kaplan = Sheets("deneme").Cells(ts, "F")
mavi = Sheets("deneme").Cells(ts, "G")
Sheets("deneme").Cells(ts, "F") = kaplan / 1000
Sheets("deneme").Cells(ts, "G") = mavi / 1000
If Sheets("deneme").Cells(ts, "E") = 105 Or Sheets("deneme").Cells(ts, "E") = 103 Then
kaplan = Sheets("deneme").Cells(ts, "F")
mavi = Sheets("deneme").Cells(ts, "G")
Sheets("deneme").Cells(ts, "F") = kaplan * -1
Sheets("deneme").Cells(ts, "G") = mavi * -1
End If
Next
Application.ScreenUpdating = True
MsgBox Format(bordo - Time, "hh:mm:ss") & vbLf _
& "Sürede İşlemi Tamamladım", vbInformation, "Bitiş"
End Sub

 

[thecarow]

Hocam teşekkür ederim