Joaom Manuel

Tengo esta rutina dentro de un evento para guardar hoja1 En esta hoja tengo definidas (yo lo hice) 2 areas de impresion, así aparece en Administrador de nombres ='Lista Repuestos'!$B$1:$K$51;'Lista Repuestos'!$M$1:$V$51 Set h2 = Sheets(1) If...

Estop es una plantilla que tengo desde hace tiempo, la cual much ayuda fue dada por el amigo Gerson Pineda de Honduras, lo cual estoy agradecido porque un trabajo fenomenal, para mi si, estupendo. Te l oenvio solo para que lo observes y opines sobre...

If Range("c46") = "" Then 'SI c46 VACIA, ESTE, 1ª pagina u = Range("B" & Rows.Count).End(xlUp).Row If ActiveWindow.FreezePanes = True Then n = 10 Else n = 17 If u > 17 Then ActiveWindow.ScrollRow = u - n Else, (si no) 2ª pagina u = Range("m" &...

Al pisar el botón Insertar, quiero que vaia jalando la hoja hacia arriba para poder ver la fila desocupada después de la ultima ocupada. En el momento, tengo que cerrar el formulario para jalar la hoja hacia arriba y volver a abrir el formulario....

Nuevamente Dant ¿En esta línea se puede tener 2 formatos? If CheckBox3 Then Cells(u, "U").Font.ColorIndex = 3 Para color ya tiene pero le faltaría Negrita

Este libro lo tienes por ahí Lista para Repuestos ALCALDE creo ser ese Agregue este check al form Private Sub CheckBox3_Click() If CheckBox3 Then TextBox4.ForeColor = vbRed 'RGB(255, 0, 0) TextBox4.Font.Bold = True Else TextBox4.ForeColor =...

Talñvez el titulo no este adecuado pero se trata de lo siguiente: Inserto datos y, cuando voy por determinada línea, la macro en ves de insertar en la siguiente vacía, inserta en la línea donde tengo los títulos reemplazando estos por la inserción....

En un TextBox ya le metí (creo) de todo para que todo el texto se vea y salga en MAYÚSCULAS Te dejo lo que le he metido tanto en evento Change como en KeyPress Estas las líneas que he usado una a una 'TextBox3.Text = StrConv(Me.TextBox3.Text,...

Como mencioné en la pregunta "Fórmula para captar con líneas vacías entremedio" pudieras usar el mismo libro ignorando la hoja Clientes Para que las fórmulas en la hoja factura en celdas C8(Nombre), C9(Dirección), B10(Cod-A/Pueblo/Ciudad),...

Esta macro la conoces tu, a pesar de tener alguna modificación MUY BÁSICA hechas por mi Sub PasarVentas() 'Por.Dante Amor Set h1 = Sheets("Factura") Set h2 = Sheets("Ventas") ' u = h2.Range("C" & Rows.Count).End(xlUp).Row + 2 For i = 14 To 23 If...