Bir sayfadaki iki veriyi birleştirerek diğer sayfaya alma

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar, sizden isteğim, bir sayfada bulunan verileri başka bir sayfada 3 satır şeklinde hızlıca makro ile almak istiyorum, örneğimi ekte anlattım yardımlarınız için teşekkür ederim. İyi günler.

 

[genesis_vision]

Deneyiniz.

 

[Hacı Bayram ÖZKAN]

Merhabalar efendim; tamam güzel çalışıyor ancak şöyle bir sorun oluyor, isimlistesi sayfasındaki sıra numarasını ben verirsem çalışıyor, ancak vermeyince yada eksik yada fazla verince hata veriyor, bunu şöyle yapabilir misiniz. Her kod çalıştığında isimlistesindeki isimleri silsin daha sonra puantaj sayfasındaki isimler kadar sıra otomatik sıra numarası vererek bu işlemi yapmasını istiyorum, böyle bir şey yapabilirseniz sevinirim. Teşekkürler.

 

[Hacı Bayram ÖZKAN]

İyi geceler acaba bakamadınız mi?

 

[genesis_vision]

Dosyanız hazır.

 

[genesis_vision]

Küçük bir değişiklik yaptım. Bunu deneyiniz.

 

[Hacı Bayram ÖZKAN]

Evet en son attığınız daha güzel sıra numarasını da güncelliyor, elinize sağlık teşekkür ederim efendim, dua ile kalın

 

[Ziynettin]

Alternatif çalışma,

 

[Hacı Bayram ÖZKAN]

Sayın Ziynettin bey size de teşekkür ederim. Ellerinize sağlık kolay gelsin iyiki varsınız:

 

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar; sizlerden bir isteğim daha olacak PUANTAJ sayfasındaki verilerden SİCİL ve MİKTAR kısmını tekrar BANKA sayfasına aktarmak için nasıl bir düzenleme yapılabilir, ben biraz bir şeyler yaptım ama tam isteğim gibi olmadı, Sub BANKA_SAYFASINA_SİCİLLERİ_MİKTARLARI_AKTAR() bu kodda da anlattım, Sicilleri ve miktarları otomatik sıra numarası vererek Banka listesine nasıl alınır. otomatik sıra numarası diyorum, çünkü puantajdaki kişilerin sayısını burda görmek için istiyorum, daha önce cevap veren yada verecek olanlardan istirham ediyorum. teşekkürler.

 

[genesis_vision]

Dosyanız hazır.

 

[Hacı Bayram ÖZKAN]

Merhabalar çok güzel olmuş, teşekkür ederim tek sorun şu efendim; Puantaj Sayfasının AS3 hücresini siz metin yapmışsınız, oraya ne yazarsak onu alıyor, örnek 01.01.2020 yazarsam 01.01.2020 Puantajı yazıyor, yani burası tarih biçiminde olacak onuda tarih yapınca oluyor ancak ancak orayı 01.08.2019 yapınca Sonuca Ağustos ayı Puantajı yazacak buna da bakarsanız sevinirim. teşekkürler. Zahmet veriyorum ama olmuş iken tam olsun

 

[genesis_vision]

Merhabalar çok güzel olmuş, teşekkür ederim tek sorun şu efendim; Puantaj Sayfasının AS3 hücresini siz metin yapmışsınız, oraya ne yazarsak onu alıyor, örnek 01.01.2020 yazarsam 01.01.2020 Puantajı yazıyor, yani burası tarih biçiminde olacak onuda tarih yapınca oluyor ancak ancak orayı 01.08.2019 yapınca Sonuca Ağustos ayı Puantajı yazacak buna da bakarsanız sevinirim. teşekkürler. Zahmet veriyorum ama olmuş iken tam olsun

O hücreyi tarihe çevirince de Ağustos 2019 yazıyor metin olunca da Ağustos 2019 yazıyor. Hatta bu şekilde olacak şekilde özelleştirmişsiniz. Değişen ne olacak ki? Gördüğüm kadarıyla sistemi etkileyecek bir durum da söz konusu değil. O hücreye 01.08.2019 yazacağınıza "Ağustos 2019" yazacaksınız.

 

[genesis_vision]

İlla ki öyle olsun diyorsanız eski kodu silip bunu deneyiniz.

Option Explicit
Sub banka()
Dim wsp, wsb As Worksheet
Dim str_p, str_b, i As Integer
Dim rng, c As Range
Dim ay As Byte
Dim yil As String

Set wsp = Sheets("PUANTAJ")
Set wsb = Sheets("BANKA")
str_p = wsp.Cells(Rows.Count, 2).End(3).Row
str_b = wsb.Cells(Rows.Count, 1).End(3).Row

Set rng = wsb.Range("a3:h5000")

With rng
    .ClearContents
    .Borders.LineStyle = xlLineStyleNone
End With

ay = Month(wsp.Range("AS3").Value)
yil = Year(wsp.Range("AS3").Value)
For i = 7 To str_p
    With wsb
        .Cells(i - 4, 1) = i - 6
        .Cells(i - 4, 2) = wsp.Cells(i, 5)
        .Cells(i - 4, 3) = wsp.Cells(i, 2) & " " & wsp.Cells(i, 3)
        .Cells(i - 4, 7) = wsp.Cells(i, 45)
        .Cells(i - 4, 8) = MonthName(ay) & " " & yil & " Puantajı"
    End With
Next i

str_b = wsb.Cells(Rows.Count, 1).End(3).Row

Set rng = wsb.Range("a3:h" & str_b)

With rng.Borders
    .LineStyle = xlContinuous
    .Color = vbBlack
    .Weight = xlThin
End With
        
End Sub

 

[Hacı Bayram ÖZKAN]

Evet olay şu, Program puantajı hesaplarken tarihi Örneğin 01.01.2020 yazarak hesaplama işlemini yapıyor, yani puantajı dolduruyor, daha sonra ise Banka Listesine Yazarken de sadece Ocak Puantajı yazacak, yani işlemi her ay için aynı kısmı değişince otomatik alıyor, size dosyayı tam göndermediğim için bunu göremediniz yani yapmanız gereken ben anlamıyorum da puantaj sayfasının AS3 hücresini "AAAA" böyle bir şey var ya bu formata çevirecek bu kadar.

 

[Hacı Bayram ÖZKAN]

Tamam efendim olay bu, teşekkürler, kusura bakmayın zahmet verdim elinize sağlık dua ile kalın

 

[Hacı Bayram ÖZKAN]

Merhaba arkadaşlar herkese iyi geceler; aynı zamanda hayırlı Ramazanlar;
Ekli dosyamda hazırlamış oldum dosyada Puantaj sayfasındaki verileri Bordro sayfasına alıyorum, daha önce yukarıdaki arkadaşlar bana kod yazmıştı bunu bu sefer yeniden uyarladım, ama BORDRO sayfasında kırmızı ile gösterdiğim yerleri yapamadım kısacası modüle5 revize edilecek yardımcı olursanız minnettar kalırım. Teşekkürler.

 

[Hacı Bayram ÖZKAN]

Merhabalar arkadaşlar; 17. mesajdaki soruma bakar mısın?

 

[Hacı Bayram ÖZKAN]

Merhabalar arkadaşlar; 17. mesajdaki soruma bakar mısın? Kodda yardımcı olmanızı istiyorum. Teşekkürler

 

[Hacı Bayram ÖZKAN]

Selamün Aleyküm 17. mesajımdaki koda ilave istiyorum teşekkürler.