Loop Through Multiple Columns, Match Against Criteria and Paste Cell in Blank Workbook...

[juanbolas]

Hello

I'm trying to process a bunch for pdf documents (that are not actual forms). I need to get data from specific fields which are all over the place inti a blank sheet. i loop through the rows of the data, then the columns and finally i loop against the criteria and do a like to match. But something is not right and I am missing data and getting repeated data in the blank sheet.

the data is from the messy converted sheet

parse MIRC-DTA4.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R	S	T	U	V	W	X	Y	Z	AA	AB	AC	AD	AE	AF	AG
1	Manifiesto Internacional de Carga por Carretera / Declaracion de Transito Aduanero MIC/DTA Manifiesto Internacional de Carga Rodoviaria / Declarac?o de Transito Aduaneiro
2	1 Nombre y domicilio del porteador / Nome e endereco do transportador Nombre Dirección Ciudad														3 Transito aduanero Transito aduaneiro X Si No Sim N?o				4 N? Aasdsdasx
3															5 Hoja / Folha 1 / 1				6 Fecha Emision / Data de emissao 24-ENE-22
4															7 Aduana, ciudad y pais de partida / Alfandega, cidade e pais de partida BS.AS.(CAPITAL)-ARGENTINA
5															Lugar Operativo	2	2	3	2	1					1	2	3				3	3	2
6	2 Rol de contribuyente / Cadastro geral de contribuintes 3079999999														)
7																															5	4	4
8	9 CAMION ORIGINAL : Nombre y domicilio del propietario CAMINH?O ORIGINAL : Nome e endereco do proprietario Nombre 2 Dirección 2 Teléfono 2														16 CAMION SUBSTITUTO : Nombre y domicilio del propietario CAMINH?O SUBSTITUTO : Nome e endereco do proprietario
9	10 Rol de Contribuyente Cadastro geral de contribuintes 399999999999				11 Placa de Camion Placa do caminh?Axxxxx										17 Rol de Contribuyente Cadastro geral de contribuintes						18 Placa de Camion Placa do caminhao
10	12 Marca y numero / Marca e numero VOLVO				13 Capacidad de arrastre (t.) Capacidade de tracao (t.) 45										19 Marca y numero / Marca e numero						20 Capacidad de arrastre (t.) Capacidade de tracao (t.)
11	14 A?o / Ano 2008				15		Semiremolque Semi-reboque					Remolque Reboque			21 A?o / Ano						22			Semiremolque Semi-reboque						Remolque Reboque
12					Placa: sx000000																Placa:
13	23 N? carta de porte N? de conhecimiento 001UY0009			24 Aduana de destino/ Alfandega de destino FRAY BENTOS-											33 Remitente / Remetente NOMBRE REMITENTE Direccion rem ciudad rem
14												0	0	6
15	25 Moneda/ Moeda DOL			26 Origen de las mercancia / Origem das mercadorias ARGENTINA											34 Destinatario / Destinatario Nombre destino Dir destino ciudad destino
16												2	0	0
17	27 Valor FOT /Valor FOT 1298			28 Flete en U$S Frete em U$S 2000.00				29 Seguro en U$S Seguro en U$S .00							35 Consignatario /Consignatario Nombre Consig Dir Consig
18	30 Tipo de Bultos Tipo dos volumes BULTOS PALETA			31 Cantidad de bultos Quantidade de volumes 26				32 Peso bruto (kg.) Peso bruto (kg.) 4112.24							36 Documentos Anexos /Documentos anexos Destinacion: asasaxzxzxzzx
19		0	3
20	37 Numero de los precintos /Numero dos lacres MSADO6 - MSADO2
21	38 Marcas y numeros de los bultos, descripcion de las mercancias / Marcas e numeros dos volumes, descric?o das mercadorias SON 26 PALLETS QUE DICEN CONTENER: MEDICAMENTOS - MANTENER TEMPERATURA ENTRE 15C Y 25C.
22
23	Declaramos que las informaciones presentadas en este Documento son expresion de verdad, que los datos referentes a las mercancias fueron transcriptos exactamente conforme a la declaracion del remitente, los cuales son de su exclusiva responsabilidad, y que esta operacion obedece a lo dispuesto en el Convenio sobre Transporte Internacional Terrestre de los paises del Cono Sur. Declaramos que as informacoes prestadas neste Documento s?o a express?o da verdade, que os dados referentes as mercadorias foram transcritos exatamente conforme a declarac?o do remetente, os quais s?o de su exclusiva responsabilidade, e que esta operacao obedece ao disposto no Convenio sobre Transporte Internacional Terrestre dos Paises do Cone Sul. 39 Firma y sello del porteador/Assinatura e carimbo do transportador Fecha /Data														40 N? DTA, ruta y plazo de transporte /N? DTA, rota e prazo de transporte RUTA A SEGUIR
24															41 Firma y sello de Aduana de Partida /Assinatura e carimbo de Alfandega de Partida Fecha /Data
Copy

The criteria range are the titles of some of the form's fileds. And it's a dynamic named range:

parse MIRC-DTA4.xlsm
	AJ
2	Nombre y domicilio del porteador
3	Marca y numero
4	Marcas y numeros de los bultos
5	Placa de Camion
6	Cantidad de bultos
7	Placa:
8	Remitente
9	Destinatario
10	Consignatario
11	Peso bruto (kg.)
12	Fecha Emision
Copy

The code is the following.

Thanks in advance

Sub Cleanup()

Set rMirc = Sheets("Table 1").Range("A1")
Set rMirc = rMirc.Resize(Sheets("Table 1").UsedRange.Rows.Count, Sheets("Table 1").UsedRange.Columns.Count)

iRows = rMirc.Rows.Count
iColumns = rMirc.Columns.Count

           
For iCol = 1 To 1 'iColumns
    For iRow = 1 To iRows
        rData = rMirc.Cells(iRow, iCol).Value
        If rData = "" Then GoTo DoNext
        For Each rCriteria In Range("rCriteria").Cells
            rData = rMirc.Cells(iRow, iCol).Value
            iCriteria = rCriteria.Value
            vSearchFor = "*" & iCriteria & "*"
           
            If rData Like vSearchFor Then
                           
                Sheets("BLANK").Range("A1").Offset(COUNTER, 0).Value = rData

                COUNTER = COUNTER + 1
               
            End If


        Next rCriteria
    Next iRow
Next iCol

End Sub