antares18

Te he puesto un ejemplo sub imprimir_hoja dim i as integer for i=1 to n ->n Numero de veces imprimir("00"&i) ->Imprime la página next i end sub

Prueba tend(A1&[prueba.xls]Hoja1'

Prueba con esto =SI(A1=Hoja1!B1:B7;Hoja1!A1:A7). Si estás en la hoja 2. Estoy suponiendo que el N|A es el 1960/2

Haces =BUSCARV(F1;F1:X7500;18) F1 es Acapulco, el rango entre Acapulco y la Región y X1 que será la región Centro que está a 18 celdas a la derecha de Acapulco

Queda complicado, en el sintido de que la fórmula queda más larga para una tontería pero sería esto La función carácter es el equivalente a chr del vba, el carácter 34 es las " dobles...

Después de Selection.End(xlUp).Select pones Application.Run "borrar_ColA"

Siento la tardanza, es que no me salía bien Sub grabar_hoja5() Dim i As Integer Dim nueva_fila As Integer nueva_fila = 0 For i = 15 To 1676 If (Range("A" + CStr(i)).Value > 71) Then nueva_fila = nueva_fila + 1 Range(CStr(i) + ":" + CStr(i)).Select...

El optionbutton es el que está mal sería Range("F" + Range("C1").Text).Value = OptionButton1.value que puede ser true o false. Todo lo demás está bien

Entre Juarez y Materia quedaría así "Juarez"+vbCRLF+"Materia" y ya te sale

Sub borrar_colA() ' ' borrar_colA Macro ' Dim i As Integer i = 1 While (Range("A" + CStr(i)).Value <> "") Range("A" + CStr(i)).Select If Not (WorksheetFunction.IsNumber(Range("A" + CStr(i)).Value)) Then Range("A" + CStr(i)).Delete End If i = i + 1...