Mehmet Sait
Altın Üye
- Katılım
- 19 Ekim 2009
- Mesajlar
- 834
- Excel Vers. ve Dili
- Office 2016 TR
- Altın Üyelik Bitiş Tarihi
- 08-09-2028
Merhabalar,
Ekli kodda bulunan ( F2, G46, I46, G47, I47, I43 I44 ) sütunlarında bulunan verileri Günlük sayfası (AJ:AJ, AK, AL, AM, AN, AO, AP) sütunlarına aktarması için ne gibi bir değişiklik yapmam gerek.
Yardımlarınız için teşekkür ederim.
Kod:
Dim Bul As Range
Set Bul = Range("AJ:AJ").Find(Range("$F$2"), , , xlWhole)
If Not Bul Is Nothing Then Range(Cells(Bul.Row, "AK"), Cells(Bul.Row, "AK")).Value = Range("G46").Value
Set Bul = Range("AJ:AJ").Find(Range("$F$2"), , , xlWhole)
If Not Bul Is Nothing Then Range(Cells(Bul.Row, "AL"), Cells(Bul.Row, "AL")).Value = Range("I46").Value
Set Bul = Range("AJ:AJ").Find(Range("$F$2"), , , xlWhole)
If Not Bul Is Nothing Then Range(Cells(Bul.Row, "AM"), Cells(Bul.Row, "AM")).Value = Range("G47").Value
Set Bul = Range("AJ:AJ").Find(Range("$F$2"), , , xlWhole)
Set Bul = Range("AJ:AJ").Find(Range("$F$2"), , , xlWhole)
If Not Bul Is Nothing Then Range(Cells(Bul.Row, "AN"), Cells(Bul.Row, "AN")).Value = Range("I47").Value
Set Bul = Range("AJ:AJ").Find(Range("$F$2"), , , xlWhole)
If Not Bul Is Nothing Then Range(Cells(Bul.Row, "AO"), Cells(Bul.Row, "AO")).Value = Range("I43").Value
Set Bul = Range("AJ:AJ").Find(Range("$F$2"), , , xlWhole)
If Not Bul Is Nothing Then Range(Cells(Bul.Row, "AP"), Cells(Bul.Row, "AP")).Value = Range("I44").Value
Set Bul = Range("AJ:AJ").Find(Range("$F$2"), , , xlWhole)
Ekli kodda bulunan ( F2, G46, I46, G47, I47, I43 I44 ) sütunlarında bulunan verileri Günlük sayfası (AJ:AJ, AK, AL, AM, AN, AO, AP) sütunlarına aktarması için ne gibi bir değişiklik yapmam gerek.
Yardımlarınız için teşekkür ederim.