lave en løn raport ud fra et regne exl.ark

Hej Skaanning,

http://www.exceltip.com/st/Create_User_Forms_in_Microsoft_Excel/629.html

Kig under initializing the form. Kald en tilsvarende metode, som refererer til feltindhold i excel arket, fremfor blanke.

Med venlig hilsen
Ieet

Hej Skaanning,

http://www.exceltip.com/st/Create_User_Forms_in_Microsoft_Excel/629.html

Kig under initializing the form. Kald en tilsvarende metode, som refererer til feltindhold i excel arket, fremfor blanke.

Med venlig hilsen
Ieet

Hej Leet
Den kender jeg godt det er ikke helt det jeg vil det den kan her jeg gjort det jeg vil er at tage bestemte data fra et regne ark og overføre dem til et andet regne ark

Prøv at sende det nødvendige...

Uddrag af koden:

Private Sub CommandButton2_Click()                  'Minimer/maximer
    With Me
        If .Height = formMaxH Then
            .Height = formMinH
        Else
            .Height = formMaxH
        End If
    End With
End Sub
Private Sub Commandløn_Click()
Dim række, uRække
    ActiveWorkbook.Sheets("beregninger").Activate
    uRække = 11                                    '1. række på "Udskrifts-arket"
   
Rem Flyt celler fra rækkerne 11 til 21
    For række = 11 To 21
Rem Test-cellen
        Range("c" & CStr(række)).Select
        If ActiveCell > 0 Then
            flytTilUdskrift Range("A" & CStr(række)).Value, "A" + CStr(uRække)
            flytTilUdskrift Range("B" & CStr(række)).Value, "B" + CStr(uRække)
            flytTilUdskrift Range("C" & CStr(række)).Value, "C" + CStr(uRække)
            flytTilUdskrift Range("F" & CStr(række)).Value, "F" + CStr(uRække)
           
Rem Optæl række på "Udskrift"
            uRække = uRække + 1
        End If
    Next række
End Sub
Private Sub flytTilUdskrift(værdi, område)
    ActiveWorkbook.Sheets("udskrift").Activate
    Range(område).Select
    Selection.Value = værdi
   
    ActiveWorkbook.Sheets("beregninger").Activate
End Sub