İmza Kartonu OluŞturma

[h.aykol_]

2.sayfadan oluşan çalışma sayfamda bir personel bilgileri birde imza kartonu sayfası var.imza kartonu sayfasından bir koşula bağlı liste oluşmasını istiyorum.ama yapamadım.yardım eden olursa şimdiden teşekkür ederim.

 

[Ayhan Ercan]

Merhaba Sn h.akyol

Ek Dosyada Vardiye Seçimi yapı ve Aktar Düğmesini çalıştırarak inceleyiniz..

Private Sub CommandButton1_Click()
Dim hcr As Range, veri As String, son As Long, x As Integer
veri = Sayfa1.Range("D5").Value
Sayfa1.Range("A8:D50").ClearContents
son = Sayfa1.Range("A65536").End(3).Row + 1
x = 1
For Each hcr In Sayfa2.Range("d4:d88")
    If hcr.Value = veri And hcr.Offset(0, 1).Value = "" Then
        For i = 2 To 5
        Sayfa1.Cells(son, i).Value = Sayfa2.Cells(hcr.Row, i).Value
        Next i
        Sayfa1.Cells(son, "A") = x
        x = x + 1
        son = son + 1
    End If
Next
End Sub

 

[Ömer]

Merhaba,

Alternatif olarak, fonksiyonlarla hazırlanmış örneği inceleyebilirsiniz..

 

[h.aykol_]

Elineze emeğinize sağlık değerli ayhan bey ve espiyonajl.sağolun varolun.

 

[Ayhan Ercan]

Elineze emeğinize sağlık değerli ayhan bey ve espiyonajl.sağolun varolun.

Rica ederim.
İyi Çalışmalar.. k::

 

[h.aykol_]

AYHAN BEY aktar bütonunu küçültmek istedim yapamadım.

 

[gezgin-49]

AYHAN BEY aktar bütonunu küçültmek istedim yapamadım.

Sayın h.akyol tasarım moduna bir kez tıklayarak buton üzerinde istediğiniz değişikliği yaptıktan sonra tasarım moduna tekrar tıklayın.

 

[h.aykol_]

teşekkür sayın gezgin!!!

 

[gezgin-49]

rica ederim

kolaylıklar diliyorum.