CAMILA MAGGIONI

Alguém poderia me dar uma mãozinha com esse código para editar planilha, eu já revirei a internet tentando" Planilha7.Activate 'percorre dados da planilha Do While ActiveCell.Value <> "" If ActiveCell.Value = textcodforn Then ActiveCell.Value = textcodforn.Value ActiveCell.Offset(0, 2).Value = textcnpjfor.Value ActiveCell.Offset(0, 3).Value = textrazaosocialfor.Value ActiveCell.Offset(0, 4).Value = textendfor.Value ActiveCell.Offset(0, 5).Value = textnfor.Value ActiveCell.Offset(0, 6).Value = textcomplementofor.Value ActiveCell.Offset(0, 7).Value = textbairrofor.Value ActiveCell.Offset(0, 8).Value = textcidadefor.Value ActiveCell.Offset(0, 9).Value = cbuffor.Value ActiveCell.Offset(0, 10).Value = textcontatofor.Value ActiveCell.Offset(0, 11).Value = texttelefonefor.Value ActiveCell.Offset(0, 12).Value = textcelularfor.Value End If ActiveCell.Offset(1, 0).Select Loop MsgBox "Dados alterados com sucesso!", vbInformation, "São Geraldo 1.0" textcodforn = "" textcnpjfor = "" textrazaosocialfor = "" textendfor = "" textnfor = "" textcomplementofor = "" textbairrofor = "" textcidadefor = "" cbuffor = "" textcontatofor = "" texttelefonefor = "" textcelularfor = "" cblocalizarforn = "" End Sub