Soru İF sorusu hk.

[balanar]

Merhaba,

Set s1 = Sheets("StajyerListesi"): Set s2 = Sheets("Rapor")
s1son = s1.Range("B" & Rows.Count).End(3).Row

For i = 2 To s1son
    If s1.Cells(i, 2).Value <> "" Then
        s2.Range("C3").Value = s1.Cells(i, 1).Value
         s2.Range("G3").Value = s1.Cells(i, 2).Value

Personel adsoyad ve tckimliğini rapor sayfama çektiriyorum bu sekilde..

Benim burada ihtiyacım olan şey şu,

Kişiler 2. satırdan itibaren başlıyor. A sutunuda adsoyad, b sutununda tckimlik var. Kişilerin yanındaki C ve D sutununda gruplama yapmak için * işareti kullanıyorum.

Şimdi bu çekim işleminde yapmak istediğim şu

Çekilen kişinin C sutununda * var ise

Set S3 = Sheets("Pazartesi-Salı-Çarşamba"): Set s2 = Sheets("Rapor")
s2son = S3.Range("B" & Rows.Count).End(3).Row

        s2.Range("C5").Value = S3.Cells(5, 4).Value
        s2.Range("C6").Value = S3.Cells(5, 5).Value

Seçilen kişinin D sutununda * var ise

Set S3 = Sheets("Çarşamba-Perşembe-Cuma"): Set s2 = Sheets("Rapor")
s2son = S3.Range("B" & Rows.Count).End(3).Row

        s2.Range("C5").Value = S3.Cells(5, 4).Value
        s2.Range("C6").Value = S3.Cells(5, 5).Value

çalıştırması gerekiyor. Bu kodların birleşmiş halini yapmamda yardımcı olur musunuz..

İşlem sonunda print yaptıracagım suan beceremedim için yarım haliyle şöyle kodlar;

Private Sub CommandButton1_Click()
Dim s1 As Worksheet, s2 As Worksheet
Dim s1son As Long, i As Long

Set s1 = Sheets("StajyerListesi"): Set s2 = Sheets("Rapor")
s1son = s1.Range("B" & Rows.Count).End(3).Row

For i = 2 To s1son
    If s1.Cells(i, 2).Value <> "" Then
        s2.Range("C3").Value = s1.Cells(i, 1).Value
         s2.Range("G3").Value = s1.Cells(i, 2).Value
      
         Set S3 = Sheets("Pazartesi-Salı-Çarşamba"): Set s2 = Sheets("Rapor")
s2son = S3.Range("B" & Rows.Count).End(3).Row

        s2.Range("C5").Value = S3.Cells(5, 4).Value
        s2.Range("C6").Value = S3.Cells(5, 5).Value
        s2.Range("C7").Value = S3.Cells(5, 6).Value
        s2.Range("C8").Value = S3.Cells(5, 7).Value
        s2.Range("C9").Value = S3.Cells(5, 8).Value
        s2.Range("C10").Value = S3.Cells(5, 9).Value
        s2.Range("C11").Value = S3.Cells(5, 10).Value
        s2.Range("C12").Value = S3.Cells(5, 11).Value
        s2.Range("C13").Value = S3.Cells(5, 12).Value
        s2.Range("C14").Value = S3.Cells(5, 13).Value
        s2.Range("C15").Value = S3.Cells(5, 14).Value
        s2.Range("C16").Value = S3.Cells(5, 15).Value
        s2.Range("C17").Value = S3.Cells(5, 16).Value
        s2.Range("C18").Value = S3.Cells(5, 17).Value
        s2.Range("C19").Value = S3.Cells(5, 18).Value
        's2.PrintOut
    End If
  
    Next i
  
  

        's2.PrintOut


Set s1 = Nothing: Set s2 = Nothing
s1son = 0:  i = 0

End Sub

 

[ÖmerFaruk]

Sanırım bu sorunuzu diğer başlıkta çözdük.
Forumda karışıklığa yol açmasın. Moderatör arkadaşlar gerekiyorsa başlığı kilitlerler.