Alguna manera de simplificar esta búsqueda
If nombre = "Repair Mats" Then
nombre = "mat"
ElseIf nombre = "Screwdrivers" Then
nombre = "screwdriver"
ElseIf nombre = "Screwmats" Then
nombre = "screw"
ElseIf nombre = "Opener Pry Tools" Then
nombre = "pry"
ElseIf nombre = "Clamping Tools" Then
nombre = "clamp"
ElseIf nombre = "Adhesive" Then
nombre = "adhesive"
ElseIf nombre = "Tapes" Then
nombre = "tape"
ElseIf nombre = "Glues" Then
nombre = "glue"
ElseIf nombre = "Cleaning Supplies" Then
nombre = "cleaning"
ElseIf nombre = "Cutting Tools" Then
nombre = "cutting"
ElseIf nombre = "Pliers" Then
nombre = "plier"
ElseIf nombre = "Solder Flux" Then
nombre = "flux"
ElseIf nombre = "Solder Paste" Then
nombre = "paste"
ElseIf nombre = "Solder Tips" Then
nombre = "tip"
ElseIf nombre = "Soldering Mask" Then
nombre = "mask"
ElseIf nombre = "Soldering Wick" Then
nombre = "wick"
ElseIf nombre = "Soldering Wire" Then
nombre = "wire"
1 Respuesta
Pon la lista en una hoja de excel, ejemplo:
Y utilizas el método Find para buscar y asignar la clave a tu variable nombre:
Dim sh As Worksheet
Dim f As Range
Dim nombre As String
'
Set sh = Sheets("Hoja1")
Set f = sh.Range("A:A").Find(nombre, , xlValues, xlWhole, , , False)
If Not f Is Nothing Then
nombre = f.Offset(, 1).Value
End If
