Çift satırlı hücrelerin verilerini aktar

[ozkovlu]

Merhabalar;
"BORDRO" Sayfasında "L":Asgari Geçim İndirimi sutunundaki veriyi, "AGindirim" sayfasında "H5" hücresindeki ilgili aya aktar.
Bu işlemi "AGindirim" sayfasındaki butona tıklayarak verileri nasıl aktarabilirim.

Saygılarımla...

 

[turist]

Dosyanız eklidir.Deneyin.

 

[ozkovlu]

Sayın turist;
İlginiz için teşekkür ederim.
Ancak "AGindirim" sayfasında "H5" hücresindeki ay değiştiği zaman ilgili aya aktarma yapmıyor. Sadece HAZİRAN ayına aktarıyor.

 

[ozkovlu]

"AGindirim" sayfasında "C" sütununda Adı Soyadı yer alacak. AGİ tutarını Adı Soyadın a göre aktarsın.(Adı Soyadı aktarmayacak)

 

[turist]

Sayın ozkovlu,
Açıklamalarınızda "H5" hücresindeki ay şeklinde belirtmiştiniz, kodlar ona uyumluydu.
Şimdi anlaşılan; "P5" hücresindeki "AY ADLARI" na göre çalışacak.
Örnek : "P5" hücresindeHAZİRAN ayı yazıyorsa , Ocak'tan Mayıs'a kadar tablo dolacak.
Eğer böyleyse P5 de OCAK yazdığında ne olacak?
BORDRO sayfasında hangi ay olduğu belli olmadığı için, AGindirim sayfasındaki tabloya hep aynı değerler mi gelecek?
Açıklama yaparsanız, dosyanız buna göre düzeltilecektir.

 

[ozkovlu]

Sayın turist;
Kusura bakmayın "H5" hatalı yazmışım "P5" olması gerekiyor.
Birde her aktarmada Adı Soyadını da aktarıyor. Normalde "AGindirim" sayfasında AdSoyad olacak. AGİ tutarı AdSoyadı ve Ayı kontrol edip ilgili yere aktaracak.

Saygılarımla....

 

[turist]

Dosyanız eklidir.

 

[ozkovlu]

Sayın turist;
TEŞEKKÜRLER

 

[ozkovlu]

Dosyanız eklidir.

Sayın @turist
Bordro sayfasındaki AGİ sütunu L sütununda iken iki sütun ekleyince O sütununa kaydı.
Agi tutarını aktarmak için, Kodda nasıl bir değişiklik yapmak icap eder.

Sub aktar()
Dim sh2 As Worksheet: Set sh2 = Sheets("AGindirim")

If sh2.Range("P5") = "OCAK" Then: ay = 1
If sh2.Range("P5") = "ŞUBAT" Then: ay = 2
If sh2.Range("P5") = "MART" Then: ay = 3
If sh2.Range("P5") = "NİSAN" Then: ay = 4
If sh2.Range("P5") = "MAYIS" Then: ay = 5
If sh2.Range("P5") = "HAZİRAN" Then: ay = 6
If sh2.Range("P5") = "TEMMUZ" Then: ay = 7
If sh2.Range("P5") = "AĞUSTOS" Then: ay = 8
If sh2.Range("P5") = "EYLÜL" Then: ay = 9
If sh2.Range("P5") = "EKİM" Then: ay = 10
If sh2.Range("P5") = "KASIM" Then: ay = 11
If sh2.Range("P5") = "ARALIK" Then: ay = 12

With sh2.Range(Cells(9, ay + 7), Cells(39, ay + 7))
.Formula = "=IFERROR(INDIRECT(""BORDRO!$L""&MATCH(C9,BORDRO!$B$6:$B$2000,0)+4),"""")"
.Value = .Value
End With
End Sub

 

[ozkovlu]

.Formula = "=IFERROR(INDIRECT(""BORDRO!$L""&MATCH(C9,BORDRO!$B$6:$B$2000,0)+4),"""")"

L 'yi O yaptım düzeldi

.Formula = "=IFERROR(INDIRECT(""BORDRO!$O""&MATCH(C9,BORDRO!$B$6:$B$2000,0)+4),"""")"