Knapp excel

Macro är det du efterfrågar. Finns inspelningsfunktionalitet så du behöver inte koda största delen, dock måste du nog programmera lite (VB) för att göra kontrollen efter nästa tomma rad.

Jag har inte tid att koda åt dig men kan ge några råd. Först gillar jag inte det där med att markera saker, då det slöar ner systemet. Men det är ofta enklare att koda så och då kan man använda sig av följande kod för att både göra systemet snabbare och mindre irriterande för användare som måste se excel markera saker.
Innan du börjar greja:
Worksheets.Application.ScreenUpdating = False
Efter när du är klart med allt.
Worksheets.Application.ScreenUpdating = true

Sedan för att stega bland kolumnerna så an du använda dig av följande kod i någon loop.
Worksheets("Löneräkning").Cells(stega & ",1")

När du öppnar en excelfil kan det vara bra att spara en referens.
dim wb As Workbook
Set wb = Workbooks.Open(FileToOpen, True, True)

Se till så att variabler måste deklareras för att undvika fel, skriv denna kodsnutt överst.
Option Explicit

Sist lycka till, problemet med kodning brukar vara att det uppstår oväntade problem/regler och saker som man måste ta hänsyn till.

*edit*

Glömde en sak.

Koden:
Workbooks.Open ("C:\excel\salarydata.xlsm")
ActiveSheet.Paste

Så antar du att excelfilen stängdes ner när rätt blad var aktiverat, detta kan leda till konstiga problem. Aktivera rätt blad före.

Svårt att ge kommentar, men det jag reagerade på var att.

Range("C5:G5").Copy
    Workbooks.Open ("C:\excel\salarydata.xlsm")
    
    Range("A1000").Select
    ActiveCell.End(xlUp).Offset(1, 0).Select
 
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Om jag inte missminner mig, så kommer denna kod att kopiera data till det excelblad som var aktivt när salarydata.xlsm sparades förra gången. Detta går enkelt att testa sig fram om så är fallet.
Även om du bara har ett blad i excelfilen, så kan någon ambitiös person skapa en extra excelblad för något. Fast adresserar du ett visst excelblad, så har du problem med folk som kan få för sig att byta namn på ditt blad. (placering, ja samma dilemma där). Jag själv själv kör dock med excelbladens namn.

Worksheets.Application.ScreenUpdating = False skulle jag ha haft direkt efter att rutinen för knappen körs. Likaså XLapp.Visible = True skulle jag ha sätt sist.

Det var det som jag såg.

Om jag förstår vad du menar, så en lopp som stegar neråt i Kolumnen A och utför beräkningar ifall namnet på kolumnen är rätt? Beroende på var du skriver resultatet, kan det hända att du behöver rensa resultatet när det ej ska visas.

Alltså något typ liknande såhär.
For i = 2 To antalExcelCeller
If (StrComp(Worksheets("Excelbladnamn").Range("A" & i ).Value, "strängen_du _jämnför_med", vbTextCompare) = 0) Then

antalExcelCeller går att räkna ut på flera sätt, som du gjorde ovanför. Eller kan du köra tills du kommer till en tom cell.
Om jag inte missminner mig, så finns det inga break till forloppar och man får använda gotos istället, om du nu skulle behöva använda break. (break i for_loppar är också fulkod för den delen)

*edit* Glömde StrComp, så att man jämför stränginnehållet, sedan är trim bra att använda lite här och där. Trim tar bort inledande och avslutande space. Alltså "katt " är inte samma sak som "katt".

Bilden fungerar inte här, men på jobbet.

Jag förstod heller inte riktigt vad du skulle göra, men som jag förstod det så skulle du få koda lite. Jag är dock ingen excelexpert, då jag mest arbetar med de andra programvarorna i office.

Nå som jag tolkade ditt problem så skulle MS Access vara en enklare lösning för problemet, om du vill ha utdrag etc. Dock är det en liten hög inlärningströske i MS Access.

Så detta inlägg kan du se som ett inlägg att jag inte riktigt vet vad du ska göra, kanske någon annan vet?

Som jag tolkade det skulle man lösa problemet precis som man löste det om det var ett vanligt språk. Alltså stega igenom och beräkna.