Sebas Torres

Con esta macro pegas los datos de tu formulario en la hoja compras Private Sub CargarDatos_Click() ' Set h1 = Sheets("Compras") ' For fila = 0 To ListBox1.ListCount - 1 Ufila = Range("A" & Rows.Count).End(xlUp).Row + 1 h1.Cells(Ufila, 1) =...

Esta simple macro es grabada y hace lo que tu quieres hacer Sub MacroGrabada() Application.ScreenUpdating = False Range("A4:D43").Select Selection.Merge True Selection.Borders(xlDiagonalDown).LineStyle = xlNone...

Agrega en el botón de cerrar el formulario ThisWorkbook. Save

Tengo 2 macros la cual una te busca y la otra al seleccionar un items te muestra la descripción en la siguiente fila, pero no se como hacer que funcionen juntas je je Yo te las paso y tu ves si alguien te puede dar una mano para unirlas Este hiria en...

=SI(A1="";"";SI(A1<3;"Bajo";SI(A1<4,1;"Básico";SI(A1<4,6;"Alto";SI(A1<5;"Superior";"")))))

Selecciona las 2 columnasVe a la pestaña DatosSelecciona Validación de datosEn "Permitir" selecciona Numero EnteroEn "Datos" selecciona Menor que y escribe 50 Si te sirvió la respuesta no olvides valorarla y cerrar la pregunta

Suponiendo que la celda que tendrá el valor es A1 pon en la celda donde quieres el resultado está fórmula =SI(Y(A1>1,A1<4),A1*1/100,"")&SI(A1>3,A1*1.5/100,"") Si era lo que buscabas no olvides valorar la respuesta

Seguramente tienes maneras más sencillas mediante un For each en las filas Pero de momento quizás te sirva esta macro ... Sub ComparColumna() For fila = 1 To 13 Set C1 = Cells(fila, 1) Set C2 = Cells(fila, 2) Set C3 = Cells(fila, 3) Set C4 =...

Tienes que hacer visible la hoja pegar los datos y luego volverla a ocultar =) Un ejemplo Quieres copiar el rango "A2:D10" de la hoja2 al rango "A2:D10" de la hoja 4 la cual esta oculta Seria algo asi Sub CopiarDatos() Set h1 = Sheets("hoja2") Set h2...

¿Algo así es lo que tu necesitas?