Fatura düzenlemek için formül kullanımı

[KMLZDMR]

SAYIN ARKADAŞLAR,
ekli tabloda bir sayfada sütunlarda 3 sütun UNVAN 4 sütun ADRES olmak üzere bilgiler bulunmaktadır. Yapmak istediğim ana işlem FATURA DÜZENLEMEK olup aşağıdaki şekilde takıldığım konu için yardımcı olur musunuz?
basit örnek tablo ektedir.

CARİ sayfasındaki UNVAN başlıklı sütunundaki 1 numaralı unvan üç sütundan, 3 numaralı unvan ise iki sütundan bazıları da tek sütundan oluşmaktadır. Bu sütunların bazıları boş olabilir.

FAT sayfasında C4 hücresine açılır kutu olarak CARİ sayfası B sütunundaki unvanlar getirip ilgili unvan seçilince formülün yapmasını beklediğim husus:
Öncelikle, c4 hücresinde açılır kutu gelmiyor. Bunu nasıl hallederiz?
CARİ isimli sayfada AD tanımlamasında FATCARİ adı tanımladım formülü ise =DOLAYLI("CARİ!B2:B"&KAÇINCI(CARİ!B:B;1)) şekilde olup FAT sayfasında C4 hücresinde VERİ-DOĞRULMA - LİSTE KAYNAK olarak
=FATCARI alan adı seçtiğimde "Kaynak Şu anda bir hara veriyor. Devam edilsin mi?" uyarısı almaktayım.
Yani liste gelmemekte...

Seçilen unvan 2 yada 3 satırdan oluşuyorsa
C4 SATIRINDAN BAŞLAYARAK sırasıyla AŞAĞIYA doğru unvan devamı, unvan bitince ADRES satırlarının dolmasını sağlamak istiyorum.
Adres sütunu 4 sütun olup adres alanındaki 3. ve 4 . sütunlar İLÇE VE İL olup
FAT sayfasındaki satırlara İLÇE ve İL birleşme ile aynı satıra gelecek.

 

[YUSUF44]

1 - Ad tanımlamada aşağıdaki formülü kullanın:

=DOLAYLI("CARİ!B2:B"&BAĞ_DEĞ_DOLU_SAY(CARİ!$B:$B))

2 - Unvanın 2. satırı için aşağıdaki formülü kullanın:

=EĞERHATA(DÜŞEYARA($C$4;CARİ!$B:$D;[B]2[/B];0);"")

3- 3. satır için yukardaki formüldeki 2'yi 3 yapabilirsiniz.

4 - Unvan yoksa adres gelmesi işlemi biraz karışık olduğundan uğraşamadım maalesef.

5 - Adresin birinci satırı için

=EĞERHATA(DÜŞEYARA($C$4;CARİ!$B:$J;[B]6[/B];0);"")

Formülünü kullanabilirsiniz. Diğer satırlar için 6'yı arttırabilirsiniz.

 

[KMLZDMR]

Teşekkür ederim YUSUF44
Umarım ÖMERBARAN yardımcı olur...

 

[YUSUF44]

Makrolu çözüm isterseniz aşağıdaki kodları fat sayfasının kod bölümüne kopyalayıp deneyiniz. C4 hücresini değiştirdiğinizde diğer hücreleri doldurur.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C4]) Is Nothing Then Exit Sub
[C5:C9].ClearContents
Set s1 = Sheets("CARİ")
son = s1.Cells(Rows.Count, "B").End(3).Row
Set c = s1.[B:B].Find(Target)
If Not c Is Nothing Then a = c.Row
For satır = 5 To 9
    For sütun = 3 To 10
        If Cells(satır, "C") = "" Then
            If sütun <> 5 And sütun <> 6 And s1.Cells(a, sütun) <> "" Then
                If WorksheetFunction.CountIf(Range("C5:C" & satır - 1), s1.Cells(a, sütun)) = 0 Then
                    Cells(satır, "C") = s1.Cells(a, sütun)
                End If
            End If
        End If
    Next
Next

End Sub