Respuesta
en
Microsoft Excel
y en 2 temas más
a
Hacer macro para crear un archivo de la hoja excel activa con el nombre de una celda especifica en la ruta del archivo original
Te anexo la macro. Cambia en la macro "B2" por la celda que contiene el nombre del archivo. Si en la celda tienes una fecha, entonces cambia la línea arch = ActiveSheet.Range("B2").Value Por esta arch = format(ActiveSheet.Range("B2").Value,...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Cambiar el color de CommandButton en un UserForm al pasar el mouse y volver al color original cuando el mouse no este sobre él
Esta sería una manera, cuando pasas el mouse por el botón se pone azul, cuando pasas el mouse por el userform se pone rojo. Private Sub CommandButton1_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)...
Respuesta
en
Visual Basic
y en 1 temas más
a
Como refrescar un combobox automáticamente
Esta sería una forma. Supongo que al iniciar el userform cargas los datos en el combo, por ejemplo Private Sub UserForm_Activate() For i = 2 To Range("B" & Rows.Count).End(xlUp).Row ComboBox1.AddItem Cells(i, "B") Next End Sub Entonces después de...
Respuesta
en
Microsoft Excel
y en 3 temas más
a
Desplegable en un formulario VBA
Te anexo el código actualizado Private Sub UserForm_Initialize() generic.Clear Set h2 = Sheets("hoja2") 'estableces en el objeto h2 la hoja2, For i = 1 To h2.Range("A" & Rows.Count).End(xlUp).Row If h2.Cells(i, "A").Value <> "" Then generic.AddItem...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
MACRO para buscar datos en una hoja y colocarlo en un label
Prueba con lo siguiente: Private Sub CommandButton1_Click() 'Por Dante Amor If Not TextBox1.Value = Empty And Not Label3.Caption = Empty Then MsgBox "ya haz iniciado el verificador", , "AVISO" Exit Sub End If ' If TextBox1.Value = Empty Then MsgBox...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para pintar celda con una condicion
Prueba con lo siguiente. Pon la macro en los eventos de tu hoja Private Sub Worksheet_Change(ByVal Target As Range) 'Por Dante Amor 'pinta de rojo cuando se captura un dato en el rango 'y en la columna D el valor es menor a 1 Set rango =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Necesito una función de Excel para un formato
Pon la siguiente fórmula en la celda B1 =INDICE(A1:A10,SUMAPRODUCTO((B2:B10=MAX(B2:B10))*FILA(B2:B10))) Nota: Cambia en la fórmula la coma (,) por punto y coma (;) si utilizas punto y coma como separador de argumentos. Cambia en la fórmula los...
Respuesta
en
Visual Basic
y en 1 temas más
a
¿Qué hay mal en mi código? ¿No reconoce valores?
Puedes explicar qué necesitas hacer. En tu código tienes esto: numero_m . Es una variable o un control de un userform, ¿cómo un textbox? Otro detalle que veo en tu macro es que seleccionas la celda "A3", incrementas f, pero sigue seleccionada la...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Contar el numero de datos que salen al filtrar una hoja
Te anexo el código Private Sub CommandButton1_Click() If ComboBox1.Value = Empty Then MsgBox "No haz colocado ningun dato", vbCritical, "ERROr! - MES" Exit Sub End If Sheets(Hoja1.Name).Activate Sheets(Hoja1.Name).Range("B3:L3").Select...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como aplicar esto a las demás celdas
Te anexo el código actualizado Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1:A50")) Is Nothing Then With Target.Interior If .ColorIndex = 3 Then .ColorIndex = 4 Else .ColorIndex = 3 End With...