Çoklu sütun çarpımı

[altuneli]

Merhabalar.
çarpım başlıklarında bulamadığım bir konuyu danışmak istiyorum.
B3 'den B'27 ye kadar ve C3'den C7'ye sayısal değerlerim var. Örneğin B3 hücresini C3 ve C7 dahil tüm hücrelerle çarparak E3 den aşağı doğru sonuçlayabilir mi? Aynı işlemi B4 ile tüm C3-C7 arası çarpımlar tek tek yapacak şekilde ve böyle B27 ye kadar tekrarlayacak. Son olarak A3 'e gireceğim değişken değer E sütununda çıkan sonuçlara bölnerek F sütununda karşısına geçecek. Linki ekleyebildiysem ekteki sayfada formatı yaptım.
Lütfen yardım.

http://s5.dosya.tc/server4/9uouav/KOMBINASYON_TAHVIL-3.xlsx.html

 

[yanginci34]

dosya tc den paylaşırsanız iyi olur bu link açmadı

 

[altuneli]

dosya tc den paylaşırsanız iyi olur bu link açmadı

Buyrun

http://s5.dosya.tc/server4/9uouav/KOMBINASYON_TAHVIL-3.xlsx.html

 

[Mustafa MUTLU]

Macro ile isterseniz buyurun.

Sub CARP()
MM = 3
Range("E3:F65536").ClearContents
For MSTF = 3 To 27
For MTL = 3 To 7
Cells(MM, "E") = Cells(MSTF, "B") * Cells(MTL, "C")
Cells(MM, "F") = Cells(3, "A") / Cells(MM, "E")
MM = MM + 1
Next
Next
End Sub

 

[yanginci34]

benim siz göndermeden önce hazırladığım dosyayı incelermisiniz.
http://s5.dosya.tc/server4/31fve4/coklu_carpim.xlsx.html

 

[yanginci34]

Hcam özür dilerim sizin cevabınızı görmedim.

 

[altuneli]

Macro ile isterseniz buyurun.

Sub CARP()
MM = 3
Range("E3:F65536").ClearContents
For MSTF = 3 To 27
For MTL = 3 To 7
Cells(MM, "E") = Cells(MSTF, "B") * Cells(MTL, "C")
Cells(MM, "F") = Cells(3, "A") / Cells(MM, "E")
MM = MM + 1
Next
Next
End Sub

yardımlarınız için teşekkürler. Tam olarak dediğim olay oldu lakin yazılan B9' dan sonraki hücrelerde işlem yapmadı. Bir de ilaveten A3 hücresine girdiğim değeri E sütununda çıkan değerlere bölüp karşısındaki F sütununa sonucunu yazarsa tam olarak olmuş olur. (Örn. A3 de 900 E10'da 45 var F10 'da 25 sonuç yazacak şekilde)

 

[altuneli]

benim siz göndermeden önce hazırladığım dosyayı incelermisiniz.
http://s5.dosya.tc/server4/31fve4/coklu_carpim.xlsx.html

Yardımınız için teşekkürler. Anlatmak istediğim topluca çarpmak değil de tüm sonuç sıralı çarpımları görebilmekti. Mustafa Bey'in yaptığı şekilde yani.

 

[Mustafa MUTLU]

yardımlarınız için teşekkürler. Tam olarak dediğim olay oldu lakin yazılan B9' dan sonraki hücrelerde işlem yapmadı. Bir de ilaveten A3 hücresine girdiğim değeri E sütununda çıkan değerlere bölüp karşısındaki F sütununa sonucunu yazarsa tam olarak olmuş olur. (Örn. A3 de 900 E10'da 45 var F10 'da 25 sonuç yazacak şekilde)

Nasıl yapmadı anlamadım.
B sütunundan 3 ten 27 nci satıra kadar, C sütunundan 3 ten 7 nci satıra kadar, çarpım yapar
A3 e girdiğiniz değer de yapılıyor olması lazım.
A3 e değer girerek deneyiniz.

 

[Mustafa MUTLU]

Eğer boş hücre yada 0 sıfır değer varsa sıfıra çarpım hatası verir
Kodu şu şekilde denerseniz o hatayı almazsınız.

Sub CARP()
MM = 3
Range("E3:F65536").ClearContents
For MSTF = 3 To 27
For MTL = 3 To 7
If Cells(MSTF, "B") > 0 And Cells(MTL, "C") > 0 Then
Cells(MM, "E") = Cells(MSTF, "B") * Cells(MTL, "C")
Cells(MM, "F") = Cells(3, "A") / Cells(MM, "E")
MM = MM + 1
End If
Next
Next
End Sub

 

[altuneli]

Eğer boş hücre yada 0 sıfır değer varsa sıfıra çarpım hatası verir
Kodu şu şekilde denerseniz o hatayı almazsınız.

Sub CARP()
MM = 3
Range("E3:F65536").ClearContents
For MSTF = 3 To 27
For MTL = 3 To 7
If Cells(MSTF, "B") > 0 And Cells(MTL, "C") > 0 Then
Cells(MM, "E") = Cells(MSTF, "B") * Cells(MTL, "C")
Cells(MM, "F") = Cells(3, "A") / Cells(MM, "E")
MM = MM + 1
End If
Next
Next
End Sub

Mustafa Bey merhaba. Cuma acil çıkmam gerekti kusura bakmayın yazamadım.
Öncelikle başlıkta yazdığım kısımda C3 C7 kısmı C3 C27 olmalıydı orada aceleden hatam oldu.
Kodunuzu makro kısmına ilk yapıştırdığımda benim eksik yazımımdan kaynaklı kısmen de olsa çalışmıştı. Lakin şimdi makro kısmına yapıştır işlemi yapamıyorum veya karakter sınırlaması oldu. bunu aşamadım şimdi de

 

[Mustafa MUTLU]

Arkadaşım kodda isteğin değişikliği yapabilirsin

For MSTF = 3 To 27 bu B sütununu
3 ten 27 ye kadar tarar siz istediğiniz şekilde değiştirin.

For MTL = 3 To 7 bu kod da C sütununu
3 ten 7 ye kadar tarar.

Örnek : For MTL = 2 To 57
2 den 57 arasını tarar

 

[Merhum İdris SERDAR]

.

Dosyanız burada.

http://s4.dosya.tc/server4/am4vi6/KOMBINASYON_TAHVIL-3.xlsx.html

Ayrıca buradaki örneği inceleyin.

http://www.excelgurusu.com/kartezyen-carpimi/


.