List Table for codes VBA

[vbanewbie68]

Dear Sir or Madam

Please see below my screenshot and my vba lines. The Gift Appeal ID list must have 3 codes like this 22UN01,22UN03 AND 22UN02 only. If new code comes in such as 22CO06 for example then it should not be allowed to join the list of Gift Appeal ID. It converts to blank instead. Please help to create VBA codes to create a blank if a new Appeal code comes in.

VBA Codes
If (Cells(x, DonationClassification)) = "inmemory" Then
Imprt.Cells(x, GiftAppeal).Value = "22UN02"
ElseIf (Cells(x, DonationClassification)) = "incelebration" Then
Imprt.Cells(x, GiftAppeal).Value = "22UN03"
Else
Imprt.Cells(x, GiftAppeal).Value = "22UN01"
End If

Thank you in advance for your help

Regards

V

 

[johnnyL]

Need some more info. Is a new classification allowed with a different ID? How are the codes coming in? Etc.

Please provide a larger sample and more examples of what would not be allowed. If same classification, but different ID, is the classification added, but leave the ID blank.

In other words we can't guess what you may encounter, you have to provide as much detail that may be needed.

 

[vbanewbie68]

Need some more info. Is a new classification allowed with a different ID? How are the codes coming in? Etc.

Please provide a larger sample and more examples of what would not be allowed. If same classification, but different ID, is the classification added, but leave the ID blank.

In other words we can't guess what you may encounter, you have to provide as much detail that may be needed.

Hi

Thank you for your time looking at this. I have changed it to be more clearer so apologies from the previous message which was not clear.

Please see my screenshot above with a new example. As a test I have a list of Appeal ID which has 3 codes ids. When new data comes under DonationClassification: I use VBA to pull the data from it and paste it onto the Gift Appeal ID's column.

Question is that what if new code such as 22UN04 comes in and it is not on the list of Appeal code table then it should be blank or should flag up to alert me that VBA is not recognize the new code? or should you have a better idea?

Below please see my vba codes.

Hope it makes sense to you?

Best Regards

V


Sub Add_Rows_Data()


'LastRow = Imprt.Cells(1, 1).End(xlDown).Row
'How to check if a column exists in the sheet, will throw an error if it doesn't exist
'Set Imprt = ThisWorkbook.Sheets("Sheet5")
LastRow = Import.Cells(1, 1).End(xlDown).Row


DonationClassification = WorksheetFunction.Match("DonationClassification", Import.Cells(1, 1).EntireRow, 0)
GiftAppeal = WorksheetFunction.Match("Gift Appeal ID", Import.Cells(1, 1).EntireRow, 0)

If (Cells(x, DonationClassification)) = "22UN02" Then
Imprt.Cells(x, GiftAppeal).Value = "22UN02"
ElseIf (Cells(x, DonationClassification)) = "22UN03" Then
Imprt.Cells(x, GiftAppeal).Value = "22UN03"
ElseIf (Cells(x, Campaign)) = "22UN01" Then
Imprt.Cells(x, GiftAppeal).Value = "22UN01"

Else
Imprt.Cells(x, GiftAppeal).Value = ""
End If

 

[vbanewbie68]

Hi
Does my previous email makes sense to you? If not then I am happy to send you a new example?
Best Regards
V