Verileri diğer sayfalara aktarılması

[1903emre34@gmail.com]

Merhabalar,

Ocak 2016 ayı içerisinde, 1. veya 2.gün yanlarında ki satırlarda öğleden önce veya sonra A, B,C,D firmaların yazıldığı zaman (manuel olarak) Sayfa 1'e otomatik olarak 01.01.2016 yanına sayfa1 hangi firma yazıldıysa onun getirilmesini istiyorum hangi formül bulamadım? (istenen veriler Sayfa 1 yapılmıştır.)

 

[1903emre34@gmail.com]

Sayfa 1'de B2 hücresine aşağıdaki dizi formül aracılığıyla A firması geliyor, benim istediğim sayfa1'de B3 hücresine B FİRMASI gelmesini onu yapamadım,

sayfa 1'de a2 ve a3 hücresine 01.01.2016 ve 01.01.2016 şeklinde nasıl formül oluşturabiliriz

=EĞER($A2="";"";EĞER(EĞERSAY('SAYFA 2'!$C$1:$C$9;$A2)<SÜTUNSAY($A$1:A1);"";İNDİS('SAYFA 2'!$D$1:$D$9;KAÇINCI(KÜÇÜK(EĞER('SAYFA 2'!$C$1:$C$9=$A2;SATIR('SAYFA 2'!$D$1:$D$9));SÜTUNSAY($A$1:A1));SATIR('SAYFA 2'!$D$1:$D$9);0);0)))

http://hizliresim.com/njq4kR

 

[1903emre34@gmail.com]

konu, güncel

 

[Ömer BARAN]

Merhaba.

Açtığınız konulara verilen cevaplar konusunda geri bildirimde bulunmuyorsunuz ama yine de cevap yazmak istedim.

Sorunuz çok anlaşılmıyor doğrusu, örnek belgeleriniz de birbirinden farklı.

Aşağıdaki formülü SAYFA 1 B2 hücresine uygulayın ve sağa ve aşağı doğru kopyalayın.
(ikinci örnek belge üzerinden düşünürsek; satır/sütun yer değiştirme istediğiniz anlaşılıyor)
.

=EĞER($A2="";"";EĞER(KAYDIR('SAYFA 2'!$C$5;SÜTUN(A$1);SATIR($A1))=0;"";KAYDIR('SAYFA 2'!$C$5;SÜTUN(A$1);SATIR($A1))))

 

[1903emre34@gmail.com]

hocam, teşekkür ederim

ben; firmaların isimlerini, sayfa 1'de alt alta sıralanmasını istiyorum,

sayfa 2'de E2 hücresinde Ocak 2016 belirtiyor, 1.gün ve 2.gün, bunları tekabül eden sayfa 1 A2 hücresinden başlayıp, 01.01.2016, 01.01.2016 aşağıya sıralanmak şeklinde nasıl formül oluşturabiliriz (metneçevir ile uğraştım yapamadım)

 

[Ömer BARAN]

Tekrar merhaba.

Makro ile çözüm işinize yararsa aşağıdaki kod kullanılabilir.
.

[FONT="Arial Narrow"][B]Sub TEKSUTUNA_LISTELE()[/B]
Set s1 = Sheets("SAYFA 1"): Set s2 = Sheets("SAYFA 2")
s1.Range("A:B").ClearContents
[COLOR="Blue"]s1.[A1] = "TARİH": s1.[B1] = "FİRMALAR"[/COLOR]
For sat = [B][COLOR="Red"][SIZE="4"]4[/SIZE][/COLOR][/B] To s2.[[COLOR="red"][B][SIZE="4"]A[/SIZE][/B][/COLOR]65536].End(3).Row
    For sut = [B][COLOR="red"][SIZE="4"]2[/SIZE][/COLOR][/B] To s2.Cells(sat, 256).End(1).Column
    If s2.Cells(sat, sut) <> "" Then
        s1sat = s1.[A65536].End(3).Row + 1
[COLOR="blue"]        tarih = s2.Range("[B]E2[/B]")
        gün = Split(s2.Cells(sat, [B][COLOR="red"][SIZE="4"]1[/SIZE][/COLOR][/B]), ".")(0)
        s1.Cells(s1sat, 1) = tarih + gün - 1[/COLOR]
        s1.Cells(s1sat, 2) = s2.Cells(sat, sut)
    End If
    Next
Next
MsgBox "İşlem tamamlandı...", vbInformation, "..:: O.BARAN ::.."
[B]End Sub[/B][/FONT]

 

[1903emre34@gmail.com]

hocam; makro ile çözüm olabilir, kod güzel çalışıyor, firmaların isimlerini alt alta sıralıyor, sayfa 1'de 1.gün ve 2.gün getiriyor bunların yerine 01.01.2016 02.01.2016 getirilmesi için kodlarda nasıl değişiklik yapabiliriz

 

[Ömer BARAN]

Tekrar merhaba.

Önceki cevabımdaki kod'u güncelledim. Sayfayı yenileyerek kontrol edin.

Kod'da, kırmızı renklendirdiğim satırı silip, mavi olanları ekleyin.

Tarih verisinin (ayın ilk günü olduğu düşünüldü),
SAYFA 2'de E2 hücresinde olduğu varsayıldı.
.

 

[1903emre34@gmail.com]

hocam, ellerinize sağlık bir başka durumu atlamışım, kusura bakmayın son kez ricam olacak sayfa 2 duruma göre kodlarda nasıl değişlik yapabiliriz.

 

[Ömer BARAN]

Tekrar merhaba.

Önceki cevabımda verdiğim kod cevabını tekrar güncelledim.
Sayfayı yenileyerek kontrol ediniz.

Benim gibi, açılan çok sayıda konuya cevap yazan üye/forum yöneticileri, malesef bu tür durumlarla sıkça karşılaşıyoruz.

-- belge tasarımı değiştirildiğinde,
-- örnek belge, gerçek belgeyle aynı yapıda olmayınca (gerek nihai veri tablosu ve gereksede veri kaynağı tablo);

...başka üyelerin sorularının çözümü için harcanacak zamanın israf edilmesine,
...verilen önceki cevaplar için harcanan zamanın boşa gitmesine,
...her zaman olmasa bile kodların en baştan tasarlanmaya çalışılmasına neden oluyor,
...ve belkide en önemlisi konulara cevap yazanların, cevap yazma isteğinde azalmaya neden oluyor.