• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

* ifadeye göre değer verme

Katılım
2 Nisan 2020
Mesajlar
6
Excel Vers. ve Dili
2013 -Türkçe
Merhaba. konu başlığı ile içerik aynımı oldu emin değilim. Sizlerden şu konuda yardım istiyorum:
A1,A2,B1,B2 hücrelerinde sabit değerler var. çok verinin yer aldığı bir tablom var. Bu tablodaki D4-E4-D5-E5 vs... hücrelerinde değişken değerlerim var. (yani her tablo değişiminde değişiyor bu veriler). Formülün bana bir rakam vermesini istiyorum. E4 teki veriye göre A1 veya B1'deki değeri almalı ama D4 ilede A2 veya B2 değerini almalı. bağımlı yani. yani önce E4 değerini sorgulayacak ona göre A ve B sütunlarından birini seçecek, D4 deki değere görede 1 veya 2. hücrelerdeki değeri alacak. buna göre yeni hücrede istediğim rakamı görmek istiyorum.

A1 > 10
A2 > 5

B1 > 20
B2 > 10

D4 > 1
D5 > 2

E4 > Adana
E5 > Antalya

istediğim rakam; Adana (E4) 2 (D5) olunca 10 (B2) değerini vermesi. ve bu formüller sabit kalıp her tablo değişiminde sonuca ulaşmak.
 
Sorunuzu ben anlamadım, benim anlamama anlamıyan olmayaçak anlamına gelmez anlayan arkadaşlar cevaplandırır umarım.
 
ayrıca eklemeyi unuttum. tablo farklı verilerden oluşuyor ben sadece 2 sütundaki değişken verileri değerlendirmeye almak istiyorum. yaklaşık 20 sütunu olan bir tablo.
 
Öncelikle örnek dosyanız asıl dosyanızla aynı yapıda olsun. İkinci olarak da Adana 2 olduğunda neden 10'u alıyoruz da Adana 1 olduğunda neden 20'yi alıyoruz? Bu 10'lar 20'ler nereden geliyor (B2'deki 10 demişsiniz ama dosyada B2'de 20 var; A2 ve B3'te 10 var)?

Bu işlemin ne zaman ne şartlar altında olmasını istiyorsunuz? Tablodaki her veri için ayrı ayrı değerlendirme mi yapılacak?

Dosyanızı ve açıklamanızı bizim anlayabileceğimiz şekilde güncellerseniz iyi olur.
 
Aşağıdaki makroyu bir modüle kopyalayıp deneyiniz:

PHP:
Sub puanla()
son = Cells(Rows.Count, "F").End(3).Row
puan = 0
For i = son To 1 Step -1
    If IsDate(Cells(i, "E")) = True Then
        If Cells(i, "I") < 5 And Cells(i, "I") > 0 Then
            If Cells(i, "J") = "A grubu" Then
                puan = puan + Cells(Cells(i, "I") + 2, "B")
            ElseIf Cells(i, "J") = "C grubu" Then
                puan = puan + Cells(Cells(i, "I") + 8, "B")
            ElseIf Cells(i, "J") = "E grubu" Then
                puan = puan + Cells(Cells(i, "I") + 14, "B")
            ElseIf Cells(i, "J") = "B grubu" Then
                puan = puan + Cells(Cells(i, "I") + 2, "C")
            ElseIf Cells(i, "J") = "D grubu" Then
                puan = puan + Cells(Cells(i, "I") + 8, "C")
            ElseIf Cells(i, "J") = "F grubu" Then
                puan = puan + Cells(Cells(i, "I") + 14, "C")
            End If
        End If
    ElseIf Left(Cells(i, "E"), 9) = "Antrenör:" Then
        Cells(i, "I") = puan
        puan = 0
    End If
Next
End Sub
 
teşekkürler, çalıştı. ancak exceli kapatıp açtığımda makroyu tekrar girmek durumunda kalıyorum. bir kaç makro daha ekledim ve uyarladım. ancak her defasında tekrar giriyorum. bunu nasıl halledebiliriz. makrolar aynı excel dosyasında sabit kalabilir mi?
 
Dosyayı kaydederken farklı kaydedip dosya türü olarak makro içerebilen excel dosyası olarak kaydetmelisiniz.
 
Geri
Üst