Hello all,
Hope someone can help me out in my problem
For Each ColumnNumber In Array(PrimeiraColunaOndeProcurar, SegundaColunaOndeProcurar, TerceiraColunaOndeProcurar)
Select Case ColumnNumber
Case Is = "ID Cliente"
ColumnNumber = NrColIdBDC
'PrimeiraColunaOndeProcurar must return the values NrColIdBDC in this case, how can i reach this?
Case Is = "Nome Cliente"
ColumnNumber = NrColNomeClienteBDC
Case Is = "Origem do Contacto"
ColumnNumber = NrColOrigemContactoBDC
Case Is = "País de Origem do Contacto"
ColumnNumber = NrColPaisOrigemContactoBDC
Case Is = "Nº Cliente Win-GI"
ColumnNumber = NrColNúmeroClienteWingiBDC
Case Is = "Site"
ColumnNumber = NrColSiteBDC
Case Is = "Área de Negócio"
ColumnNumber = NrColAreaNegocioBDC
Case Is = "Pessoa de Contacto"
ColumnNumber = NrColPessoaDeContactoBDC
Case Is = "E-mail"
ColumnNumber = NrColEmailBDC
Case Is = "Contacto"
ColumnNumber = NrColContactoBDC
Case Is = "Nº ORÇAMENTOS"
ColumnNumber = NrColNúmeroOrçamentosBDC
Case Is = "Nº Encomendas Efetuadas"
ColumnNumber = NrColNúmeroEncomendasEfetuadasBDC
Case Is = "Quantia Orçamentada"
ColumnNumber = NrColQuantiaOrçamentadaBDC
Case Is = "Histórico Falado"
ColumnNumber = NrColHistóricoFaladoBDC
Case Is = "Ultimo contacto"
ColumnNumber = NrColUltimoContactoBDC
Case Is = "Dia Ultima Atualização"
ColumnNumber = NrColDiaUltimaAtualizaçãoBDC
Case Is = "Nº Dias sem Contacto"
ColumnNumber = NrColNúmeroDiasSemContactoBDC
Case Is = "Contacto Agendado para:"
ColumnNumber = NrColContactoAgendadoBDC
Case Is = "Cliente Criado em:"
ColumnNumber = NrColClienteCriadoEmBDC
Case Is = Empty
ColumnNumber = ""
End Select
Next ColumnNumber
I have the array defined, i want to loop throught the array and replace the values based on select case "variations"
Hope you can tell me why isn't the value being replaced when condition is meet, it keeps the older value (empty)
Bookmarks