ad48

se sua rede for 220v pode ligar o cooler direto em 220 conforme a configuração dos fios no transformador deve sair 110v favor virificar antes de fazer ligaçãoes OBS cuidado se ligar errado vai queimar,

boa noite colegas não entendo muito de vba. tenho planilha formulario de digitação. uso este ex. de validação se tiver alguma celula em branco no formulario não grava o formulario. ------------------------------------------------------------ Sub GRAVAR_FORMUALRIO() If IsEmpty(Range("FORMULARIO!D2")) Or IsEmpty(Range("FORMULARIO!D4")) Or IsEmpty(Range("FORMULARIO!D6")) Or IsEmpty(Range ("FORMULARIO!J6")) Or IsEmpty(Range("FORMULARIO!P6")) Or IsEmpty(Range("FORMULARIO!AA4")) Then Mensagem = MsgBox("FAVOR VERIFICAR DIA,MES,ANO,SETOR,ZONA E VENDEDOR CÉLULAS EM VERMELHO ESTÃO VAZIAS.GRAVAÇÃO CANCELADA!") Exit Sub End If Application.ScreenUpdating = False Application.Calculate Sheets("DATA").Visible = True Sheets("DATA").Select Range("A2:BW16").Select Selection.Copy Sheets("DATABASE").Visible = True Sheets("DATABASE").Select If Range("A2").Value = "" Then Range("A2").Select Else ActiveCell.SpecialCells(xlLastCell).Select Selection.End(xlDown).Select Selection.End(xlToLeft).Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select End If Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False MsgBox "Formulario Incluso!" End Sub ------------------------------------------------------------------------------------------- planilha data que é alimentada do formulario a macro gravar formulario copia da planilha data pra planilha DATABASE obs sempre deve colar na proxima em branco ate tudo beleza. o seguinte se ficar rodando a macro vai duplicando as informação. preciso adicionar na macro validação coluna BV ValidaDuplicado se repetir deve fazer uma pergunta deseja substituir as 15 informações contidas na colunas A : BW? sim grava não foi cancelado a gravação. muito obrigado.