Günlere yazdığım verilerin tüm sayfaya aktarılması

[gezgin-49]

Sayın üstadlarım ekte gönderdiğim tabloda aylara göre değişen fazla çalışma günlerine göre hazırladığım menüden toplu giriş yapmak istiyorum. örneğin bu menüde Pazartesi günü fazla çalışma saati "2" olarak belirttiğimde tüm personelin Pazartesi günlerinin 2 saat olması gerekiyor, aynı şekilde diğer günlere hangi değeri atadıysam toplu giriş yapmasını istiyorum, bu konuda yardımlarınızı bekliyorum, saygılar sunuyorum.

(dosyayı göndermeyi unutmuşum, dosya ikinci mesajda gönderilmiştir.)

 

[gezgin-49]

Dosyayı göndermeyi unutmuşum, dosyayı ekledim, yardımlarınızı bekliyorum, saygılar

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Private Sub CommandButton1_Click()
    [D7:AH65536].ClearContents
    SON_SATIR = [B65536].End(3).Row
    For X = 4 To 34
    If Cells(6, X) <> "" Then
    G&#220;N = WorksheetFunction.Weekday(Cells(6, X), 2)
    Select Case G&#220;N
    Case 1: Range(Cells(7, X), Cells(SON_SATIR, X)) = TextBox1.Value
    Case 2: Range(Cells(7, X), Cells(SON_SATIR, X)) = TextBox2.Value
    Case 3: Range(Cells(7, X), Cells(SON_SATIR, X)) = TextBox3.Value
    Case 4: Range(Cells(7, X), Cells(SON_SATIR, X)) = TextBox4.Value
    Case 5: Range(Cells(7, X), Cells(SON_SATIR, X)) = TextBox5.Value
    Case 6: Range(Cells(7, X), Cells(SON_SATIR, X)) = TextBox6.Value
    Case 7: Range(Cells(7, X), Cells(SON_SATIR, X)) = TextBox7.Value
    End Select
    End If
    Next
    MsgBox "&#304;&#350;LEM&#304;N&#304;Z TAMAMLANMI&#350;TIR.", vbInformation
End Sub

 

[gezgin-49]

Sayın üstadım Korhan AYHAN ellerinize, emeğinize sağlık, tam istediğim gibi olmuş, ama bir sorun daha var, o da kaç personel varsa o kadar yazılmasını istiyorum, onun dışındakilerin boş kalması gerekiyor, bunu da düzeltirsek sorun kalmayacak, ilginizden dolayı şimdiden siz sayın üstadıma teşekkür ediyor, saygılarımı sunuyorum.

 

[abdi]

gerçi ustad Korhan bey cevaplamış ama

Bir alternatif de benden hazırlamışken göndereyim dedim

 

[gezgin-49]

Sayın üstadım Korhan AYHAN tam istediğim gibi olmuş, ama bir sorun daha var , o da kaç personel varsa o kadar yazılmasını istiyorum, onun dışındakilerin boş kalması gerekiyor, bunu da düzeltirsek sorun kalmayacak, ilginizden dolayı şimdiden siz sayın üstadıma teşekkür ediyorum.

ayrıca abdi üstadıma da ilgisinden dolayı çok teşekkür ediyorum, sayın abdi sizin gönderdiğiniz dosya da işime yarıyabilir. Saygılar sunuyorum.

 

[karagöz55]

Tek Kelİmeyle Harİka Bİr ProĞram

 

[Korhan Ayhan]

Selamlar,

B31 hücresinde bir formül var eğer kullanmıyorsanız bu formülü silerseniz kod doğru çalışacaktır. Yo eğer bu formülü kullanıyorsanız o zaman kodun içindeki SON_SATIR = [B65536].End(3).Row bölümünü aşağıdaki şekilde değiştirip deneyin.

SON_SATIR = [A65536].End(3).Row