kopiere enkelte celler til nyt ark....
HejNu prøver jeg lige igen at se, om jeg kan få hjælp herinde.
Jeg har et ark, hvor jeg på forsiden (ark 1) skriver en række ting i kolonne B, C, D og E, hvorefter jeg kan køre en makro (se nedenstående), der overfører teksten fra de fire celler fra forsiden til et nyt ark.
--------
Sub Nyt_ark()
On Error Resume Next
Dim stilling As String, cpr As String, lønnr As String, navn As String, enhed As String, måned As String, år As String
If ActiveSheet.Name <> "forside" Then
MsgBox "Du skal stå på 'forsiden' for at oprette et nyt ark", 16, "Oprette nyt ark"
Exit Sub
End If
Application.ScreenUpdating = False
Cells(ThisWorkbook.ActiveSheet.Rows.Count, 1).Select
Selection.End(xlUp).Select
stilling = ActiveCell.Value
cpr = Selection.Offset(8, 2).Value
lønnr = Selection.Offset(8, 3).Value
navn = Selection.Offset(8, 4).Value
enhed = Selection.Offset(7, 9).Value
måned = Selection.Offset(8, 9).Value
år = Selection.Offset(9, 9).Value
Sheets("arbejdskort").Copy after:=Sheets(2)
If Sheets("arbejdskort").Visible = 0 Then Sheets(3).Visible = True
Sheets(3).Select
Cells(2, 5).Value = lønnr
Cells(3, 5).Value = navn
Cells(4, 5).Value = stilling
Cells(5, 5).Value = cpr
Cells(8, 5).Value = enhed
Cells(7, 4).Value = måned
Cells(7, 5).Value = år
Sheets(3).Name = navn
Sheets("forside").Select
Application.ScreenUpdating = True
End Sub
---------
Problem 1:
Jeg har bare det problem, at når jeg skriver i f.eks. B10,C10, D10 og E10, så overfører den stadig det, der står i B9, C9, D9 og E9.
Det er jo meningen, at efterhånden som jeg får skrevet i de fire celler, kører jeg makroen, opretter et ark og begynder så at skriver i næste række i samme kolonner på forsiden - trykker på makroen osv.
Problem nr. 2:
Jeg kan ikke få den til at overføre fra kolonne B (altså det jeg har kaldt 'stilling') på ark 1 til celle E4 på det ark, den opretter. Alle de andre overførelser går fint og står de rigtige steder….
Nogen der kan gennemskue, hvad der er galt i disse to problemstillinger??
Mvh Jan
