Soru Form üzerinde aktarma ve toplama hatası

[sirkülasyon]

Ustam;
Personel sayfasında butona tıkladıktan sonra gelen form üzerinde önce kurum sonra personel seçildikten sonra

  Dim k As Range, sat As Long
With Sheets("Personel")
    sat = .Cells(Rows.Count, "c").End(xlUp).Row
    Set k = .Range("c2:c" & sat).Find(ListBox2, , xlValues, xlWhole)
    If Not k Is Nothing Then
       .Cells(sonsat, "D") = k.Offset(0, 1).Value
       .Cells(sonsat, "E") = k.Offset(0, 2).Value
    End If
End With
Set k = Nothing

kodu personel sayfasında TC ve Unvanı BORDRO sayfasına aktarılmıyor. Birde okul adı farklı geliyor.

Ayrıca Modül1 de yer alan

Sub topla()
Dim k As Integer
For k = 7 To 19
    Cells(51, k).Value = WorksheetFunction.Sum(Range(Cells(2, k), Cells(50, k)))
Next
'MsgBox "Toplandı."
End Sub

kodu bazen topluyor, bazen de toplamıyor.

Rica etsem bakabilir misiniz?

 

[ÖmerBey]

Merhaba,
İç içe with kullandığınız için ilgili alan içerdeki with nesnesine göre işlem yapılıyor. Böyle durumlarda dıştaki nesneye tam bağlantı vermeniz gerekir.
Aşağıdaki şekilde deneyiniz...

Sheets("BORDRO").Cells(sonsat, "D") = k.Offset(0, 1).Value
Sheets("BORDRO").Cells(sonsat, "E") = k.Offset(0, 2).Value

İkinci sorunuzla alakalı bir problemle karşılaşmadım. Ben de hep topladı (Bordro sayfasında olduğum müddetçe).