Dante Amor

H o l a: No es necesario que pases los datos a una variable y luego a una celda, lo puedes hacer directamente del textbox a la celda, pon lo siguiente en el botón de Aceptar: Private Sub cmdAceptar_Click() ActiveCell = Val(TxtPROCENTAJE) End Sub ‘ F...

H o l a: Si vas a filtrar 4 columnas, tenemos que realizar un ciclo para revisar cada una de las 4 columnas, no podrías utilizar un autofiltro o un filtro avanzado ya que si filtras por la primera columna, no podrás revisar los datos de las otras 3...

H o l a : Si estás guardando el archivo que tiene la macro entonces la extensión debe ser "xlsm", pero si es otro archivo entonces es "xlsx", te dejo la maro con "xlsm" y revisa si es lo que necesitas, de lo contrario, cambia a "xlsx"; la idea es...

H o l a: Te anexo la macro para buscar en todas las hojas. Actualiza en la hoja donde haya encontrado el valor; y no es necesario utilizar screenupdating, ya que la macro utiliza el objeto b para actualizar la hoja, en el objeto b está el resultado...

H o l a: Private Sub Worksheet_Change(ByVal Target As Range) 'Act.Por.Dante Amor Application.ScreenUpdating = False If Target.Count > 1 Then Exit Sub If Not Intersect(Target, Columns("B")) Is Nothing Then If Target = "" Then Exit Sub ruta =...

H o l a: Te anexo la macro, no mencionas exactamente qué quieres en el aviso, te estoy poniendo un aviso con la suma alcanzada y desde cuál celda y hasta cuál celda se sumaron. Sub SumarHastaLimite() 'Por.Dante Amor una = True For Each c In...

H o l a: Te anexo el código Option Explicit Dim cargando Private Sub ComboBox46_Change() 'Por.Dante Amor Dim h2, col, dato, i Application.ScreenUpdating = False If cargando = True Then Exit Sub Set h2 = Sheets("hoja2") col = "I" cargando = True dato...

H o l a: Te anexo las 2 macros. Para crear un nueva carpeta en mis documentos: Sub NuevaEnDocumentos() 'Por.Dante Amor ruta = CreateObject("wscript.shell").SpecialFolders("mydocuments") & "\" carpeta = "Nueva" If Dir(ruta & carpeta, vbDirectory) = ""...

H o l a: Envíame tu archivo con datos de ejemplo, si ya tienes el formulario, también me lo envías. Recuerda poner tu nombre de usuario en el asunto del correo. F e l i z N a v i d a d y P r ó s p e r o A ñ o N u e v o!

H o l a: La siguiente puede ser una opción. Si solamente quieres que se utilice en una computadora, entonces pon el número de serie dentro del código del formulario, si el número de serie de la computadora es igual número de serie que tiene el...