rlm

experimente: experimente: [code]Sub Separa_Registro() Dim i As Integer, j As Integer, x As Integer Dim strSep() As String j = 2 'Inclui ma nova sheet e nomeia Sheets.Add ActiveSheet.Name = "Contato" With Sheets("Base de Dados") For i = 1 To .Range("a" & Rows.Count).End(xlUp).Row 'Separa os registros utilizando ";" como delimitador strSep = Split(.Cells(i, 2), ";") 'Loop dos registros individuais e grava na planilha criada For x = 0 To UBound(strSep) If strSep(x) <> "" Then Sheets("Contato").Cells(j, 1) = .Cells(i, 1).Value Sheets("contato").Cells(j, 2) = strSep(x) j = j + 1 End If Next Next End With End Sub[/code]

A sugestão do colega Lucas, irá lhe atender; porem o "erro" apontado deve-se ao fato de seu contador iniciar no Zero (0): de zero a dez são 11 "rodadas" e de Zero à 20 são 21 "rodadas". Uma outra opção para ajuste/correção: Altere contador=0 para contador =1

Veja se está em linha com o que espera/deseja Sub Monitor_Temp_Umidade() Dim Temp_Ideal As Integer Dim Umid_Ideal As Integer Temp_Ideal = Range("C4").Value Umid_Ideal = Range("D4").Value If (Temp_Ideal >= 20) And (Temp_Ideal <= 30) Or (Umid_Ideal >= 75) And (Umid_Ideal <= 85) Then 'Ideal' Range("E4").Value = "Ideal" ElseIf (Temp_Ideal > 30) And ((Umid_Ideal > 85) And (Umid_Ideal <= 90)) Then 'Atenção' Range("E4").Value = "Atencão" ElseIf (Temp_Ideal) > 30 And (Umid_Ideal < 30) Then 'Alarme' Range("E4").Value = "Alarme" MsgBox "Atenção" + "!", vbCritical, "EMERGENCIA" End If End Sub