Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para bloquear unas celdas en excel
Para bloquear celdas, es necesario proteger la hoja. Entonces, primero selecciona toda la hoja y cambia en formato de celdas, Proteger y desactiva la casilla "Bloqueada", ahora selecciona las celdas o columnas que quieras proteger, por ejemplo la...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
¿Como obtener de un string los caracteres numéricos separados por * e introducirlos en variables?
Para separar datos utilizando un delimitador se utiliza la sentencia split, por ejemplo: Sub separar() dato = "214*215*216*217*S" numeros = Split(dato, "*") For i = 0 To UBound(numeros) If IsNumeric(numeros(i)) Then MsgBox numeros(i) End If Next End...
Respuesta
en
Visual Basic
a
Código para no usar cerrar de la ventana activa (x) sino con la macro desde un botón
Pon el siguiente código en el userform Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer) If CloseMode = 0 Then Cancel = True MsgBox "Para salir, presiona el botón de salida" End If End Sub En el botón para salir pon lo...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Seleccionar Rango de Hojas y Exportar a Pdf
Te anexo la macro actualizada, para copiar de la hoja4 hasta la última en un pdf Sub CommandButton2_Click() 'Por.Dante Amor Dim hojas() Application.ScreenUpdating = False Application.DisplayAlerts = False ruta = ThisWorkbook.Path arch = Hoja2.Name n...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Filtrado de columnas en vba
Envíame tu archivo y me explicas con cuáles columnas quieres filtrar, incluso puede ser con todas. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “kronos6” y el título de esta pregunta.
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como copiar el formato de una celda en otra hoja
Ejecuta la siguiente macro Sub Buscar_Ruc() 'Por.Dante Amor Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") For i = 3 To h1.Range("B" & Rows.Count).End(xlUp).Row Set b = h2.Columns("B").Find(h1.Cells(i, "B"), lookat:=xlWhole) If Not b Is Nothing...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Eliminar filas que no contengan el texto de la celda ah1
¿Pero en cuál columna se debe verificar si existe el texto de la celda AH1? ¿O qué verifique en todas las columnas de la fila?
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Mostrar datos cuando se ingresa una palabra en un TextBox-VBA
Prueba lo siguiente, en esta parte tienes un Exit Sub If OpcionIngreso.Value = True And TextBuscar.Text = Worksheets("BASE INGRESO").Range("A" & i).Value Then Me.ListBuscar.AddItem (Worksheets("BASE INGRESO").Range("C" & i).Value) TextBuscar.SetFocus...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Macro para copiar datos de una columna a otra con condicional
Te anexo la macro actualizada Sub Copia() 'Por.Dante Amor ' Set b = Rows(19).Find("Importe", lookat:=xlWhole) If Not b Is Nothing Then col = b.Column + 26 i = 22 Do While Cells(i, "Z") <> "" For j = col To Cells(20,...
Respuesta
en
Visual Basic
y en 1 temas más
a
Evitar pasar a otro formulario sin que se haya terminado de capturar todos los datos
Te anexo una opción: Private Sub CommandButton2_Click() If TextBox5.Text = "" Then MsgBox "Ingrese fecha" TextBox5.SetFocus Exit Sub End If If Código.Text = "" Then MsgBox "Ingrese su numero de Registro" Código.SetFocus Exit Sub End If If Nombre.Text...