Dante Amor

H o l a: Primero, tienes que quitar el bloqueo a toda las celdas. Segundo, tienes que proteger la hoja. Tercero, cada que modifiques la celda B8 o G8 las otras celdas se bloquearán. Si escribes algo en B8 la celda C8 se desbloquea Si borras la celda...

H o l a: No me funciona esta conexión que estás poniendo: cn.Open "DRIVER={Microsoft Excel Driver (*.xls)};" & "DriverIdy0;ReadOnly=True;DBQ=" & strArchivo & ";" La que me funciona es esta: strCon = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &...

H o l a: Entiendo que copias un "rango" hacia una filas abajo. Lo que quieres es copiar una celda de ese "rango" a la hoja "Análisis" Si quieres que se copie la misma información, entonces tendrías que hacerlo de forma secuencial, es decir, primero...

H o l a: La expresión sería así: h1.Range("AC" & u & ":AO" & u) = Split(a, ".") Pero, en tu ejemplo, solamente tienes 4 celdas, y de AC a AO son 13 celdas, en 9 celdas te pondrá el resultado: #N/A, entonces lo reemplazamos con "", quedaría así:...

H o l a: Te anexo la macro Sub BuscaryReemplazar() 'Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Campana") Set h2 = Sheets("Basedatos") For i = 2 To h1.Range("R" & Rows.Count).End(xlUp).Row Set b =...

H o l a: Te anexo el código para borrar los registros del formulario: Private Sub ListBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer) 'Por.Dante Amor 'elimina el registro presionando la tecla Supr If ListBox1.ListIndex =...

H o l a: Para proteger las fórmulas y que además no se vean las fórmulas, es necesario seleccionar las celdas que vas a bloquear y cambiar el formato de las celdas en el menú Inicio, Formato, Formato de celdas, Proteger, marcar las casillas:...

Te anexo las macros Para cargar los productos: Private Sub UserForm_Activate() 'Por.Dante Amor 'cargar los productos en el combo ingreso = Format(Date, "dd/mm/yyyy") Set h5 = Sheets("PRODUCTOS") ComboBox1.ColumnCount = 2 For i = 2 To h5.Range("A" &...

¿Cuál columna es la que vas a seleccionar la E? No puedo descargar el archivo. Me lo envías a mi correo, recuerda poner tu nombre de usuario en el asunto del correo.

H o l a: Pon el siguiente evento en tu formulario Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) 'Por.Dante Amor If TextBox1 > 0 And IsNumeric(TextBox1) Then TextBox1 = Format(CDbl(TextBox1 / 100), "#0.00%") End If End Sub Ahora,...