Automatically changing cell numbers into names

I am looking for some help on making a bit of code as I don't know how to do it.

I have cells for these variables: (so they can be easily edited)
ID1: 04e42adab35780 (used for Person1: customer)
ID2: 04944d8a126885 (used for Person2: chief)
...

The code needed would change the ID's from all the data into the persons name (the ones from above) once I click a button


I already have this code to import data from a different file:

Sub RFID_Omzetter() ' ' RFID_Omzetter Macro ' RFID cijfers omzetten naar namen ' ' Sneltoets: Ctrl+d ' ' gegevens kopiëren van een werkblad naar werkblad RFID Omzetter vanaf cel A10 Dim wsCopy As Worksheet Dim wsDest As Worksheet Dim lCopyLastRow As Long Dim lDestLastRow As Long Dim ImporteerNaam As String Dim Badge1 As String, badge2 As String ImporteerNaam = [B3].Value Badge1 = [B5].Value badge2 = [B6].Value '0. Open workbook Workbooks.Open "C:\Users\stagiair\Documents\" & ImporteerNaam & "" Set wsCopy = Workbooks(ImporteerNaam).Worksheets(1) 'The last 1 means the first page of the worksheet Set wsDest = Workbooks("RFID omzetter.xlsm").Worksheets("RFID Omzetter") '1. Find last used row in the copy range based on data in column A lCopyLastRow = wsCopy.Cells(wsCopy.Rows.Count, "A").End(xlUp).Row '2. Find first blank row in the destination range based on data in column A 'Offset property moves down 1 row lDestLastRow = wsDest.Cells(wsDest.Rows.Count, "A").End(xlUp).Offset(1).Row '3. Clear contents of existing data range wsDest.Range("A10:G" & lDestLastRow).ClearContents '4. Copy & Paste Data wsCopy.Range("A1:G" & lCopyLastRow).Copy _ wsDest.Range("A10") '5. Close workbook Workbooks(ImporteerNaam).Close SaveChanges:=True End Sub

Would you confirm that when there are more people the data currently starting in row 10 simply moves further down and that the formula

=IFERROR(INDEX($D$5:$D$6,MATCH(F11,$B$5:$B$6,FALSE),1),"")

in G2 copied down gives you what you want

Originally Posted by Richard Buttrey

Would you confirm that when there are more people the data currently starting in row 10 simply moves further down and that the formula

=IFERROR(INDEX($D$5:$D$6,MATCH(F11,$B$5:$B$6,FALSE),1),"")

in G2 copied down gives you what you want

The formula you gave has an error somewhere I think.

But yes, I want to be able to put more people as well, if its to many people then ill just change the A10 to a higher value to start pasting from.

I was thinking on something like this, but its not working:

If Range("B6").Value = Range("F11:F21").Value Then
      Range("F11:F21").Value = [D6].Value
    ElseIf Range("B7").Value = Range("F12:F21").Value Then
      Range("F12:F21").Value = [D7].Value
    End If

[QUOTE=IGDT;5636948]The formula you gave has an error somewhere I think.

Oops, I should have said copy it to G11 and then copy down of course.

WIth a generalised macro

Dim lLastNameRow As Long, lFirstSessionRow As Long, llastSessionRow As Long
    lLastNameRow = Blad1.Range("A5").CurrentRegion.Rows.Count + 4
    llastSessionRow = Blad1.Range("B" & Rows.Count).End(xlUp).Row
    lFirstSessionRow = Blad1.Range("A" & lLastNameRow).End(xlDown).Row + 1
    
    Range("G" & lFirstSessionRow & ":G" & llastSessionRow) = "=IFERROR(INDEX($D$5:$D$" & lLastNameRow & ",MATCH(F" & lFirstSessionRow & ",$B$5:$B$" & lLastNameRow & ",FALSE),1),"""")"
    Range("G" & lFirstSessionRow & ":G" & llastSessionRow) = Range("G" & lFirstSessionRow & ":G" & llastSessionRow).Value