Este fórum está sendo desativado

[eduardoadm]

Tenho uma macro que chama um site e insere em campo de busca um cpf ou cnpj copiados da planilha do excel.

Uso atualmente duas planilhas:

- Para CPF tenho o codigo abaixo:

While Trim(Plan1.Cells(linha, 2)) <> ""

docweb.all("cpf").Value = Format(Plan1.Cells(linha, 2), "00000000000")
docweb.all("btnConsultar").Click

- Para CNPJ tenho o codigo abaixo:

While Trim(Plan1.Cells(linha, 2)) <> ""

docweb.all("cnpj").Value = Format(Plan1.Cells(linha, 2), "00000000000000")
docweb.all("btnConsultar").Click

Como faço para unificar as planilhas e fazer com que a formatação condicional ocorra dependendo da informação (CPF ou CNPJ) que tenho na célula?

[osvaldomp]

Código: Selecionar todos

 While Trim(Plan1.Cells(linha, 2)) <> ""
  If Len(Plan1.Cells(linha, 2)) = 11 Then
   docweb.all("cpf").Value = Format(Plan1.Cells(linha, 2), "00000000000")
   docweb.all("btnConsultar").Click
  Else
   docweb.all("cnpj").Value = Format(Plan1.Cells(linha, 2), "00000000000000")
   docweb.all("btnConsultar").Click
  End If