AndersonRochaSilva

Ola Estou com o seguinte problema. Tenho uma UserForm de cadastro onde há informações com Data, Solicitante, Função e Setor. Abaixo disso tenho mais alguns textbox onde é informado oque pego pelo solicitante. Na planilha onde é salvo as informações fica da seguinte forma, Data, nome, Função e unidade, 1º item. Logo abaixo Data, nome, Função e unidade, 2º item e assim por diante. porem quando é preenchido somente um item, ainda é salvo a Data, nome, Função e unidade referente aos demais itens porem estão vazias. Queria saber com posso fazer para salvar somente quando o textbox referte ao intem estiver preenchido. Segue Script usado. Private Sub CommandButton1_Click() ThisWorkbook.Worksheets("SAVE").Activate Range("A26").Select Do If Not (IsEmpty(ActiveCell)) Then ActiveCell.Offset(1, 0).Select End If Loop Until IsEmpty(ActiveCell) = True ActiveCell.Value = data.Value ActiveCell.Offset(0, 1).Value = data.Value ActiveCell.Offset(0, 2).Value = nome.Value ActiveCell.Offset(0, 3).Value = função.Value ActiveCell.Offset(0, 4).Value = unidade.Value ActiveCell.Offset(0, 8).Value = iten1.Value ActiveCell.Offset(1, 1).Value = data.Value ActiveCell.Offset(1, 2).Value = nome.Value ActiveCell.Offset(1, 3).Value = função.Value ActiveCell.Offset(1, 4).Value = unidade.Value ActiveCell.Offset(1, 8).Value = iten2.Value ActiveCell.Offset(3, 1).Value = data.Value ActiveCell.Offset(3, 2).Value = nome.Value ActiveCell.Offset(3, 3).Value = função.Value ActiveCell.Offset(3, 4).Value = unidade.Value ActiveCell.Offset(3, 8).Value = iten3.Value MsgBox "Gravado com Sucesso" End Sub Oque esta em verde só deve se salvo na planilha se o que esta em negrito estiver preenchido no formulario. Desde já agradeço a ajuda de todos