Adriel Ortiz Mangia

Adriel Ortiz Mangia

La vida es hermosa
 252K puntos  Yurimaguas, Perú @temp01 desde - visto
Preguntar

Respuestas en Visual Basic

Respuesta en y en 1 temas más a

Macro para numerar celdas del 1 al 14

[Hola prueba esto Sub NUM() ini = 3 For i = 1 To 14 Cells(ini, 1) = i ini = ini + 1 Next i End Sub
Respuesta en y en 1 temas más a

Macro para restar cantidad de artículos en otro libro desde el formulario factura.

[Hola Te paso la macro, solo ajusta los nombres de tus controles que usas. Lo primero que hace es buscar el código del articulo y si encuentra realiza la resta. Set h1 = Sheets("Hoja_Artículos") ' codigo_Art = TextBox1 ' Set r = h1.Columns("B") '...
Respuesta en y en 1 temas más a

Copiar datos de un libro a otro en diferentes hojas

[Hola ¿El filtro lo harás en forma manual?
Respuesta en y en 2 temas más a

Recorre bucle y pega rango de otra hoja si cumple condición

[Hola Te paso la macro, crea 4 hojas con los respectivos nombres Norte, Sur, Este, Oeste. Valora la respuesta para finalizar Sub copiar() 'Por Adriel ' Set h1 = Sheets("INFORME") ' u = h1.Range("B" & Rows.Count).End(xlUp).Row For i = 2 To u ' Select...
Respuesta en y en 1 temas más a

Como lograr copiar el valor de un rango a fila ultima de otra hoja

[Hola Te paso la macro Sub copiar() 'valora la respuesta para finalizar 'Por Adriel Set h1 = Sheets("Hoja1") Set h2 = Sheets("VENTAS") ' u = h2.Range("A" & Rows.Count).End(xlUp).Row For i = 5 To 13 If h1.Cells(i, "M") <> "" Then h1.Range("M" & i &...
Respuesta en y en 3 temas más a

Copiar filas de una hoja a otra de acuerdo a condicion

[Hola Te paso la macro Sub copiar() 'valora la respuesta para finalizar 'Adriel ' Set h1 = Sheets("Hoja1") Set h2 = Sheets("Estado") ' For i = 7 To h1.Range("A" & Rows.Count).End(xlUp).Row If h1.Cells(i, "AD") < 51 Then u2 = h2.Range("A" &...