ÜST DÜZEY EXCEL SORUNU ACİLL

Sezai3922.02.20167 cevap3.585 görüntüleme

#1
22.02.2016 00:44

Arkadaşlar merhaba bügün biz bir kod denedik fakat üst düzey bir yazılım. Buradaki amaç otomatik olarak "mn" leri seçip "c11" toplam sonuç "12" olması gerek böyle birşey mümkünmü ?

Yardımlarınızı bekliyorum. Doguş arkadaşımda aynı konuda paylasımda bulunmuştur arkadaşlar kusura bakmayın programda hata var excel dosyasını yüklemiyor bende kopyalaya bıldım.

AD ADET
MN 8
VV 5
XX 7
HY 6
MN 2
HH 1
MN 1
MN 2
TOPLAM 12

düzenlendi

Cevaplar

algea

#2
22.02.2016 17:48

Makro ile şu şekilde yapabilirsin excel hazır fonksiyonlar ile yapılabileceğini sanmıyorum. Umarım faydalı olabilmişimdir...

Function CalculateTotal(ParamArray rs() As Variant) As Integer
Dim TheUnion, rng As Range
Dim i, r As Integer
If UBound(rs()) > -1 Then
    Set TheUnion = rs(0)
    For i = 1 To UBound(rs())
        Set TheUnion = Union(TheUnion, (rs(i)))
    Next
End If

Dim col, row As Integer

For Each rng In TheUnion
        col = rng.Cells.Column
        row = rng.Cells.row
        If UCase(Cells(row, col - 1).Value) = "MN" Then
            r = r + rng.Value
        End If
Next
CalculateTotal = r
End Function

eSa

#3
22.02.2016 18:08

algea

#4
22.02.2016 18:50

Böyle bir fonksiyonu olduğunu yeni öğrendim. Basit yoldu da varmış demek.

Mustafa Kaya

#5
24.02.2016 17:07

Makro belki karışık gelebilir şöyle bir çözümü de var. Burada E sütünuna her kodun başına =(eşittir) koyarak D sütünunda girmek gerekiyor. Sanırım işini görecektir.

düzenlendi

Mustafa Kaya

#6
24.02.2016 18:03

Sorry arkadaşlar, kafa karışıklığı olmasın kopyala yapıştırdan dolayı, harfleri yeri değişmiş.

Not: Bir önceki mesajı 2. kez düzenlememe izin vermediğinden 2. mesajı atıyorum.

Sezai39 Konuyu açan

#7
02.03.2016 23:02

HEPİNİZ İÇİN TEŞEKKÜR EDERİM

kadirildeniz

#8
23.06.2016 00:20

Cevaplamışlar ama =ETOPLA() komutunu kolayca kullanabilirsin .

Cevabını yaz

Cevap yazmak için giriş yap ya da üye ol. Eski forum kullanıcı adın ve parolanla girebilirsin.