Macro para analizar si existe o no una hoja con ese nombre y copiar datos en ella
Mi intención
Es hacer un filtro a la hoja 1 poniendo en "F2" el dato a buscar y me cree una hoja con ese nombre si no existe.
Y pegar la Celda "A" que esta junto al dato a buscar.
Pero me sale este error en mi código, no se mucho de vba por lo que nose si lo que plantee se pueda o no espero me puedas ayudar
1 Respuesta
Respuesta de fejoal
1
.
Buenas, Alexis
Estás bastante cerca.
Antes de ingresar en el bucle de Contador, agrega las siguientes instrucciones para que verifique si existe la hoja y en caso contrario, la cree:
nombreHoja = "F2" 'celda donde está el nombre de la hoja nombreHoja = Range(nombreHoja).Value 'control de existencia de Hoja On Error Resume Next Set SheetEx = ActiveWorkbook.Sheets(nombreHoja) If Err <> 0 Then 'creación de la hoja indicada Err.Clear On Error GoTo 0 Sheets.Add After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Name = nombreHoja End If Sheets(nombreHoja).Select ' SIN COMILLAS Set SheetEx = Nothing
Te marca error porque pusiste nombreHoja entre comillas dobles y al ser una variable debe ir sin ellas, como te muestro al final de la subrutina.
.
