Başka Bir Sayfadan Şarta Uyan Verileri Başka Bir Sayfaya Yazdırma

[ahmed_ummu]

Merhaba arkadaşlar.

Aşağıdaki kodun neresinde hata var. Yardımcı olabilir misiniz.

Ekte gönderdiğim dosyada iki sayfa var. Veri sayfasında isimler var. Bu isimlerin çoğu rapor sayfasından da var. Rapor sayfasının B sütununu 5. satırdan itibaren kontrol edecek, aynı isim veri sayfasının 2 satırdan itibaren B sütununda var ise o satırın 4. sütununun değerini, rapor sayfasının d sütununa yazacak.

Set sh1 = Sheets("veri")
Set sh2 = Sheets("rapor")
s = 5
For i = 5 To sh2.Cells(Rows.Count, 2).End(xlUp).Row
If sh2.Cells(i, 2).Value = sh1.Cells(i - 3, 2).Value Then
sh2.Range("d" & s).Value = sh1.Cells(i - 3, 4).Value
s = s + 1
End If
Next i

 

[dEdE]

Merhaba,
Kodlarınızda bir yanlışlık yok. Rapor sayfası B sütunundaki verilerin Başında BOŞLUK var.
Aşağıdaki kodu bir kez çalıştırarak boşlukları kaldırırsanız sizin kodlarınız istediğiniz işlemi yapar.

Sub Test()
Set sh2 = Sheets("rapor")
For i = 5 To sh2.Cells(Rows.Count, 2).End(xlUp).Row
    Cells(i, 2) = Trim(Cells(i, 2))
Next i
End Sub

 

[ahmed_ummu]

Merhaba,
Kodlarınızda bir yanlışlık yok. Rapor sayfası B sütunundaki verilerin Başında BOŞLUK var.
Aşağıdaki kodu bir kez çalıştırarak boşlukları kaldırırsanız sizin kodlarınız istediğiniz işlemi yapar.

Sub Test()
Set sh2 = Sheets("rapor")
For i = 5 To sh2.Cells(Rows.Count, 2).End(xlUp).Row
    Cells(i, 2) = Trim(Cells(i, 2))
Next i
End Sub

Teşekkürler sayın dEdE

 

[ahmed_ummu]

Merhaba arkadaşlar.

Örnek olarak gönderdiğim dosyada, form üzerinde bulunan Optionbuttonlardan "TÜM PERSONEL" seçeneğini seçip, Checkboxlardan herhangi bir seçim yaptığımda seçilen bilgilerin tümünü getiriyor. Fakat Optionbuttonlardan diğer seçenekleri seçtiğimde, mesela "EĞİTİM ÖĞRETİM HİZMETİ" "TÜM KADROLU PERSONEL" vb seçip, checkboxlardan seçim yaptığımda bilgiler son kişiye kadar gelmiyor. Yardımcı olabilir misiniz. Çözemedim bir türlü