Luis_P

Prueba asi: Sub Genera() Dim numConsec As Long Dim strConsec As String Dim i As Integer Range("I2").Select Selection.NumberFormat = "@" For i = 2 To Application.WorksheetFunction.CountA(Range("A:A")) If IsEmpty(ActiveCell) Then Range("I2").Value =...

Ok, vamos He considerado el mismo modelo que has puesto en el ejemplo, por ende las fechas comienzan en la columna E Necesitaremos 2 hojas, la hoja 1 donde estan tus datos y la hoja 2 en donde solo deben estar los titulos Apellido Paterno Apellido...

Prueba asi: consulta = ThisWorkbook.Path & "\Libro1.xls" rutaconsulta = ThisWorkbook.Path Sheets("PRUEBA").Select With ActiveSheet.ListObjects.Add(SourceType:=0, Source:=Array(Array( _ "ODBC;DSN=Excel Files;DBQ=" & consulta & ";DefaultDir=" &...

Entonces asignale al control la referencia de esa celda, text=range("C1"), suponiendo que que en c1 esta su formula

La secuencia: 1 2 3 4 5 6 Es un correlativo base 1 La secuencia 2 4 6 8 10 Es un correaltivo base 2 Es decir un correlativo es un indice numerico aplicado a una lista

'4c7569735f50 Concatena las celdas asi: =CONCATENAR(C1;" ";D1;" ";E1)

En la pestaña "revisar" existe el boton "permitir que otros usuarios modifiquen rangos" Alli creas los permisos a los usuarios

'4c7569735f50 si(a1>=30000 =y(a1<=90000);27%;si(a1>90000 =y(a1<=150000);21%;0))

Probe tu formula y funciona perfecto para todos los meses es probable que el registro que extraes tenga algun problema... no se prueba lo sgte escribe ( y no extraigas) este texto en la celda y sobre ese registro aplica tu formula ENCUESTA NUEVO...

Bueno ese cod aparece cuando el error que no se corresponde con ninguno de los definidos por Visual Basic para aplicaciones Prueba lo mas facil Activa el grabador de macros y ejecuta el proceso manualmente, luego comparas el codigo Según la linea que...