Eşit değerleri makro ile toplama

[ulutanas]

Arkadaşlar öncelikle ilginizden dolayı çok teşekkür ederim.

Eklemiş olduğum dosyada sorunum ile ilgili detaylı açıklama yaptım yardımcı olursanız çok memnun olurum teşekkürler.

 

[Husgvarna]

Aşağıdaki kodu deneyin.

For a = 2 To Sheets("MÜŞTERİLER").Cells(65000, 1).End(xlUp).Row
For b = 2 To Cells(65000, 2).End(xlUp).Row
If Cells(b, 2) = Sheets("MÜŞTERİLER").Cells(a, 1) Then
Sheets("MÜŞTERİLER").Cells(a, 2) = Sheets("MÜŞTERİLER").Cells(a, 2) + Cells(b, 8)
Sheets("MÜŞTERİLER").Cells(a, 3) = Sheets("MÜŞTERİLER").Cells(a, 3) + Cells(b, 9)
End If
Next: Next

Sheets(2).Select

 

[ulutanas]

husgvarna ilginiz için teşekkürler ama bu kodu nereye yazmam gerekiyor acaba

 

[Husgvarna]

husgvarna ilginiz için teşekkürler ama bu kodu nereye yazmam gerekiyor acaba

Ben aşağıdaki örnekte butonu kullandım; ama sizin örneğe göre, kodların
"I" sütununa veri girişi ile sonlandırılması gerekiyor.

 

[ulutanas]

Teşekkür ederim çok güzel olmuş hocam emeğinize sağlık. fakat bir ricam daha olacak zahmet olmazsa bu işlemi CommandButton olmadan kendisi otomatik yapsa ve her girilen işlemden sonra müşteriler sayfasına gitmese olurmu acaba hocam.

 

[ulutanas]

commandbutton tuşuna basmadan otomatik kayıt yapmayı başardım fakat her girdiğim değerden sonra müşteriler sayfasına gitme işlemini nasıl durduracağım onu anlamadım kod aşağıdaki gibi bilgisi olan arkadaşlar yardımcı olursanız sevinirim. teşekkürler

Private Sub Worksheet_Change(ByVal Target As Range)
Sheets("MÜŞTERİLER").[b2:c65000] = ""
For a = 2 To Sheets("MÜŞTERİLER").Cells(65000, 1).End(xlUp).Row
For b = 2 To Cells(65000, 2).End(xlUp).Row
If Cells(b, 2) = Sheets("MÜŞTERİLER").Cells(a, 1) Then
Sheets("MÜŞTERİLER").Cells(a, 2) = Sheets("MÜŞTERİLER").Cells(a, 2) + Cells(b, 8)
Sheets("MÜŞTERİLER").Cells(a, 3) = Sheets("MÜŞTERİLER").Cells(a, 3) + Cells(b, 9)
End If
Next: Next
Sheets(2).Select
End Sub

 

[ulutanas]

korhan hocam size zahmet konuyla ilgili bana yardımcı olurmusunuz rica etsem.

 

[mnrs_]

kodun sonundaki "sheets(2).select" kısmını silebilirsiniz.
Bu kısımdaki 2'yi 1 yaparsanız işlem bittiğinde "Cari" sayfasını seçer. Buradaki 2 rakamı soldan sağa doğru sayfa sırasını belirtir. İşlem bittiğinde hangi sayfada kalmak istiyorsanız o sayfanın sıra numarasını yazın.

 

[ulutanas]

aynen dediğiniz gibi yaptım oldu sayfa1 diye değiştiridim soldan 1.sayfada kaldı peki bu sayfa numarasını sayfa adıyla değiştirmem için veya hiç bir sayfaya gitmesin aynen düzenleme yaptığım sayfada kalması için ne yapmalıyım hocam bu konuyla ilgilide bilgilen dirirseniz çok memnun olurum.
Teşekkürler.

 

[Husgvarna]

aynen dediğiniz gibi yaptım oldu sayfa1 diye değiştiridim soldan 1.sayfada kaldı peki bu sayfa numarasını sayfa adıyla değiştirmem için veya hiç bir sayfaya gitmesin aynen düzenleme yaptığım sayfada kalması için ne yapmalıyım hocam bu konuyla ilgilide bilgilen dirirseniz çok memnun olurum.
Teşekkürler.

Merhaba.
Kodun sadece "I" sütununda işlem yaptığınızda çalışması için:

  Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 9 Then Exit Sub
Sheets("MÜŞTERİLER").[b2:c65000] = ""
For a = 2 To Sheets("MÜŞTERİLER").Cells(65000, 1).End(xlUp).Row
For b = 2 To Cells(65000, 2).End(xlUp).Row
If Cells(b, 2) = Sheets("MÜŞTERİLER").Cells(a, 1) Then
Sheets("MÜŞTERİLER").Cells(a, 2) = Sheets("MÜŞTERİLER").Cells(a, 2) + Cells(b, 8)
Sheets("MÜŞTERİLER").Cells(a, 3) = Sheets("MÜŞTERİLER").Cells(a, 3) + Cells(b, 9)
End If
Next: Next
End Sub

Aslında "MÜŞTERİLER" sayfası açıldığında çalışması daha iyi.
Onun içinde "MÜŞTERİLER" sayfasının kod sayfasına:

  Private Sub Worksheet_Activate()
Sheets("MÜŞTERİLER").[b2:c65000] = ""
For a = 2 To Sheets("MÜŞTERİLER").Cells(65000, 1).End(xlUp).Row
For b = 2 To Sheets("CARİ").Cells(65000, 2).End(xlUp).Row
If Sheets("CARİ").Cells(b, 2) = Sheets("MÜŞTERİLER").Cells(a, 1) Then
Sheets("MÜŞTERİLER").Cells(a, 2) = Sheets("MÜŞTERİLER").Cells(a, 2) + Sheets("CARİ").Cells(b, 8)
Sheets("MÜŞTERİLER").Cells(a, 3) = Sheets("MÜŞTERİLER").Cells(a, 3) + Sheets("CARİ").Cells(b, 9)
End If
Next: Next
End Sub

 

[ulutanas]

arkadaşlar ilgi ve alakanızdan dolayı çok teşekkür ederim istediğim sonucu elde ettim sayenizde.