irfancantr
Altın Üye
- Katılım
- 18 Haziran 2007
- Mesajlar
- 625
- Excel Vers. ve Dili
- Excel 365 - İmngilizce
- Altın Üyelik Bitiş Tarihi
- 07-05-2029
Herkese iyi akşamlar,
Szilerden ricam sayfada bulunan D hücresindeki isimlerin I hücresindeki karşılık değerlerinin toplamlarını M ve N hücrelerine yazdırabilmek,
Kod:
Application.ScreenUpdating = False
Range("P:Q").ClearContents
[W1] = "FİRMALAR"
[N5] = "TOPLAMLAR"
a = [D2500].End(3).Row
Range("D6:K" & a).Copy [W2]
i = [W65536].End(3).Row
Range("W1:W" & i).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("M5"), Unique:=True
For J = 5 To [M65536].End(3).Row
Cells(J, "N") = WorksheetFunction.SumIf(Range("W:W"), Cells(J, "M"), Range("AA:AA"))
Next
Range("W:AE").ClearContents
Range("M:AE").Borders.LineStyle = 0
Range("M:AE").Borders.LineStyle = 0
Range("M5:N" & J - 1).Borders.LineStyle = 1
[N5] = "TOPLAMLAR"
Application.ScreenUpdating = True
Bu kodların neresinde hata yapıyorum anlamadım (zetan kodları başka yerden kırpa kırpa zoraki bu hale ancak getirebildim) ne şekilde daha rahat düzenleyebilir,
İkinci olarak E ve yine aynı şekilde I sütunlarında ki topla.çarpım şeklini hemen yanı olan P ve Q sütunları tek seferde alabilir miyiz?
P ve Q sütunlarına bilgi çekeceğimiz için yukarıda ki kod başlı başına değişmek zorunda kalacak sanırım
Yardımlarınız için şimdiden çok teşekkür ederim...
Not: Az önce ki mesajımda aceleden başlığı yazarken saçmaladım, bu konuda özür dilerim...
Szilerden ricam sayfada bulunan D hücresindeki isimlerin I hücresindeki karşılık değerlerinin toplamlarını M ve N hücrelerine yazdırabilmek,
Kod:
Application.ScreenUpdating = False
Range("P:Q").ClearContents
[W1] = "FİRMALAR"
[N5] = "TOPLAMLAR"
a = [D2500].End(3).Row
Range("D6:K" & a).Copy [W2]
i = [W65536].End(3).Row
Range("W1:W" & i).AdvancedFilter Action:=xlFilterCopy, _
CopyToRange:=Range("M5"), Unique:=True
For J = 5 To [M65536].End(3).Row
Cells(J, "N") = WorksheetFunction.SumIf(Range("W:W"), Cells(J, "M"), Range("AA:AA"))
Next
Range("W:AE").ClearContents
Range("M:AE").Borders.LineStyle = 0
Range("M:AE").Borders.LineStyle = 0
Range("M5:N" & J - 1).Borders.LineStyle = 1
[N5] = "TOPLAMLAR"
Application.ScreenUpdating = True
Bu kodların neresinde hata yapıyorum anlamadım (zetan kodları başka yerden kırpa kırpa zoraki bu hale ancak getirebildim) ne şekilde daha rahat düzenleyebilir,
İkinci olarak E ve yine aynı şekilde I sütunlarında ki topla.çarpım şeklini hemen yanı olan P ve Q sütunları tek seferde alabilir miyiz?
P ve Q sütunlarına bilgi çekeceğimiz için yukarıda ki kod başlı başına değişmek zorunda kalacak sanırım
Yardımlarınız için şimdiden çok teşekkür ederim...
Not: Az önce ki mesajımda aceleden başlığı yazarken saçmaladım, bu konuda özür dilerim...
Ekli dosyalar
-
204.5 KB Görüntüleme: 16
Son düzenleme: