Joaom Manuel

Tengo esta macro que DAM dejo a un usuario, Sub PedirClave() 'Por Dante Amor Do While True res = InputBox("Escribe la contraseña: ", "INGRESO") If res = "abc" Then Exit Do Else If MsgBox("Contraseña errada. Intentar de nuevo", vbYesNo, "SEGURIDAD") =...

Tengo esta pequeña macro para que me diga cual es el numero más alto, pero me dice falso en el MsgBox Sub Max() maxi = Application.WorksheetFunction.Max(Sheets("Hoja1").Range("A:D")) MsgBox "El valor mas alto es: " & NumberFormat = "_ ""Bs"" *...

Pido su ayuda o colaboración para lo siguiente: Estoy usando una plantilla la cual contiene una de las hojas en la cual necesito: Pequeña macro para botón, que me llame un ImputBox para colocar el número de líneas a insertar, para insertar líneas...

Teno este código el cual funciona al 1000% pero Option Explicit Dim archivos() Private Sub CreoBath() Dim a As String Dim b As String Dim c As String Dim i As Long Dim fold As Variant Dim fc As Variant Dim f As Variant Dim xtx As String Erase...

On este código y algo más, quisiera que me abarcara TODO el libro, en ves de solo la B y A. Tengo un código que funciona pero me parece que el amigo DAM sabe como hacerlo con una macro más corta de la que tengo y, prefiero las macros cortas siempre y...

Elsa, mis respectos y saludos. Quiero preguntarte si de la macro que gentilmente me facilitaste, estas líneas están bien formadas. Pregunto porque estas mismas líneas, las hiciste con un fin de usar la columna F en un rango de 14 a 23, en este caso...

Sea con MonthView o con dataPicker, con este código quiero que inserte en las celdas con formato fecha sin que tenga que dar formato fecha a la columna. Así tengo que dar formato fecha a las celdas Private Sub cbtMonthView1_Click() 'Por.Dante Amor u...

Tengo este proyecto y necesito macro para botón para eliminar línea(s) de productos ya en factura. El botón tiene como caption ELIMINAR LÍNEA(S) que esta en la hoja factura Un problema tengo que, además de eliminar líneas, se necesita que las...

=SI(CONTARA(K2)=0;"COMPRA";"EXISTE") Esta fórmula en L2 para darme resultado de K2, me funciona, si pero; ¿Como hacerla para que: Cuando en K2 la existencia es de 1, en la celda L2 se lea COMPRAR y que el relleno de la celda (L2) sea en color ROJO y...

La idea es la siguiente: Una base tengo en una hoja. En la columna A una numeración que puede ir el 00000001 hasta 00050000 Un formulario en el cual tengo una macro con un botón "Eliminar". En el form por medio de un ComboBox selecciono el proveedor...