A tablosundan B tablosuna formüle

[kasif2]

Selam arkadaşlar;

Bu tablo bize her ay geliyor. Tabloyu başka bir servisten alıyorum buradaki çalışma sayfasını benim çalışma kitabıma kopyalıyorum. Fakat bu tabloda örneğin bedelsiz, arıtma v.b. Her ay olmuyor. Bu yüzden mesela ağustos ayında 2. satırda Resmi Daireler varken Eylül ayında bedelsiz oluyor ve ben bunu kendi tabloma bu yüzden formülle taşıyamıyorum.

Mesela "Aliağa-Resmi daireler" satırındaki değerler, satırı değişse dahi, benim tabloda "Aliağa-Resmi Daireler" sırasına yönlendirebileceğim bir formül var mı?

 

[Korhan Ayhan]

Selamlar,

Bahsettiğiniz tablonuzda her ay olmayan öğelerin dışında sizin tablonuzda olmayıp gelen tabloda olan öğeler varmı ? Tablonuza eklenen birşey oluyormu ?

Eğer varsa buna göre bir çözüm üretmek gerekebilir.

 

[veyselemre]

eki inceleyin

 

[kasif2]

Çok sağol veyselemre;

Tablo müthiş çalışıyor. Ekte 2 dosya var, FONKONYENİ'de hiçbir problem yok, TAHAKKUKYENİ'de ise 1. satır 30. sütunda kaçak tablosu var ve bu tabloyu bi türlü icmal tablosunda ilgili yerlere gitmiyor.

Bunun i için yeni bi çalışma kitabı mı yaratmalıyım yoksa bu şekilde bi yansıtma yapabilir miyim.

 

[kasif2]

Zipin içinden 3 dosya çıkıyor, dosyalarım FONKONYENİ ve TAHAKKUKYENİ.

TAHAKKUK.xls dosyasını dikkate almayın.

 

[kasif2]

Acil Yardım;

Veyselemre;acil yardımına ihtiyacım var, vermiş olduğun tahakkuk xls tablosunda yuvarlama sütunu bir türlü oluşmuyor, makrolardan anlamadığım için bir türlü çözemedim. :yardim: :dua:

Bunu da halledebilirsen olay bitmiştir.:dua:

Þimdiden teşekkürler...

 

[veyselemre]

[vb:1:1cb3936e8a]Sub aktar()
Set s1 = ActiveSheet
Set s2 = Sheets("icmal")

s1son = s1.[a65536].End(3).Row
s2son = s2.[a65536].End(3).Row
s2.Range("d2:x" & s2son).SpecialCells(xlCellTypeConstants).ClearContents

For x = 2 To s1son
If Left(Cells(x, 1), 6) <> "Toplam" Then

For y = 2 To s2son
If s2.Cells(y, 1) = Cells(x, 1) And s2.Cells(y, 3) = Cells(x, 3) Then
For t = 4 To 24

s2.Cells(y, t) = Cells(x, t)

Next t
Exit For
End If
Next y
End If
Next x

End Sub
[/vb:1:1cb3936e8a]

 

[kasif2]

Veysel çok sağol , kod çalıştı :hihoho:

En kısa zamanda benim de makro yazmayı öğrenmem gerek, gerçekten çok işe yarıyor...

Tekrardan teşekkürler...