Excel formel macro et eller andet. Hjælp

Du skal have en vba med inputbox
eller "formular" i alm excel

kan du uddybe "formular" i alm Excel?

Det er vist under DATA >> FORMULAR,
tryk evt. på F1-tasten og skriv formular

Hej Daniel

Jeg har lavet et lille eksempel, som måske kan bruges.
Vedlægger et link.


https://www.dropbox.com/s/fvywqzd3jmy29ab/Flytte%20data_2.xlsm?dl=0

Mange tak. det er lige præcis det jeg leder efter. den skal bare kunne lave flere kolonner adgangen.

Fik lidt hjælp idag, vores kode kom til at se sådan ud:

Sub Knap3_Klik()

End Sub

Sub flytdata()

Dim targetRow As Long


' finder første tomme række i ark2
targetRow = Worksheets("Ark2").Range("A65536").End(xlUp).Row + 1

' kopierer aktiv række
ActiveSheet.Range("A2").Activate
'Tester om celle A2 på Ark1 er tom
Set rCell = Range("A2")
If IsEmpty(rCell) Then
  MsgBox "CELLE " & "A2" & " MÅ IKKE VÆRE TOM!."
  Else
    'Hvis Ark1 Celle A2 er udfyldt kopieres række 2
    Rows(ActiveCell.Row & ":" & ActiveCell.Row).Copy
        Worksheets("Ark2").Select
        'ophæv beskyttelse på Ark
        ActiveWorkbook.ActiveSheet.Unprotect "test"
            ' vælger kopiarket og den første ledige række og indsætter
            Rows(targetRow & ":" & targetRow).Select
            ActiveSheet.Paste
            ActiveWorkbook.ActiveSheet.Protect "test"
        ' tilbage til originalarket
        Worksheets("Ark1").Select
    ' Ophæv markeringen af kopering af række
    Application.CutCopyMode = False
' flytter cursor til celle A2
ActiveSheet.Range("A2").Activate
'sletter række A2 så den er klar til en ny indtastning
Rows(ActiveCell.Row & ":" & ActiveCell.Row).Delete
End If



End Sub

Hvorfor bruger du ikke en userform det ville være mere elegant!!

#6 - jeg er ikke den skarpes til Excel. vil du uddybe det?

Det er en formular som giver rigtig mange muligheder for at styre data evt,valiere data før de overføres. Hvis du ligger et regneark  på evt dropbox kan jeg godt give dig et eks. på det.

Jan