Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como realizar un case en vba de selección de hojas
Te anexo un ejemplo Sub Copiar_Registros() Application.ScreenUpdating = False Set h1 = Sheets("Hoja1") For i = 2 To h1.Range("D" & Rows.Count).End(xlUp).Row hoja = LCase(h1.Cells(i, "D").Value) Select Case hoja Case "archivo1": Set h2 =...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Pasar datos de celdas concretas a posiciones concretas de ficheros de texto
Te anexo la macro. Realiza los siguientes ajustes en la macro: Cambia "C:\trabajo\Enfermos\" por la carpeta donde tienes los archivos de enfermos Cambia "Enfermo tipo.txt", por el nombre de archivo tipo. Nota: este archivo deberá estar también en la...
Respuesta
en
Microsoft Excel
a
Como pasar una fórmula a VBA EXCEL
Te anexo la macro Sub Poner_Estatus() With Range("D2:D" & Range("A" & Rows.Count).End(xlUp).Row) .FormulaR1C1 = "=IF(RC[-2]=""LIQUIDADO"",""LIQUIDADO"", IF(RC[-3]<R2C6,""VENCIDO"",""EN TIEMPO""))" End With End Sub'.[Sal u dos. Dante Amor. No olvides...
Respuesta
en
Microsoft Excel
a
Como colocar el mismo formato de celdas a columna 2 del listboxt
Te el código actualizado Private Sub ComboBox1_Change() Filtrar_Material End Sub Private Sub TextBox1_Change() Filtrar_Material End Sub Private Sub TextBox2_Change() Filtrar_Material End Sub ' Sub Filtrar_Material() 'Por Dante Amor If...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Buscar un dato en una columna y guardarlo en una variable
Para realizar una búsqueda puedes utilizar el método .Find, por ejemplo: Sub Buscar_Dato() Set b = Sheets("Hoja1").Columns("A").Find("COLOMBIA", lookat:=xlWhole) If Not b Is Nothing Then MsgBox "Dato encontrado " & b.Value Else MsgBox "el dato no...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Al presionar un botón en un userform, me active y cargue información en label y textbox de otro userform
Solamente hay que acomodar las línea al revés, primer poner el dato en el label y después abrir el form: Private Sub S1_Click() fecha_actual = Format(Now(), "dd/mm/yyyy") RECIBO.M_S.Caption = "S1" RECIBO.Show 'RECIBO.FECHA.Caption = fecha_actual End...
Respuesta
en
Visual Basic
y en 2 temas más
a
Como resolver un fallo con un código en un formulario de búsqueda
Pero en esta línea NumeroDatos = Base.Range("A" & Rows.Count).End(xlUp).Row Que es "Base" es el nombre de una hoja, si es así, entonces debería ser así: NumeroDatos = sheets("Base").Range("A" & Rows.Count).End(xlUp).Row En cuanto a esto: Esa es una...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
¿ Cómo filtrar datos que se repiten Nveces en una base de datos y pasarlos a una nueva tabla ?
Te puedo construir una macro para copiar los datos, solamente dime en cuál columna está el CURP y en cuál fila empiezan los datos.
Respuesta
en
Microsoft Excel
a
Formato condicional en excel 2007 para un proyecto de tienda
Pon los siguientes formatos condicionales: - Para el color rojo: En se Aplica a: =$B$3:$B$1000,$E$3:$E$1000 -Para el color verde: En se Aplica a: =$B$3:$B$1000,$E$3:$E$1000 Te deben quedar así las reglas '.[Sal u dos. Dante Amor. No olvides valorar...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Guardar libro en formato xltxt
Te anexo la macro actualizada Sub Copia() 'Act Por Dante Amor 'On Error Resume Next Application.ScreenUpdating = False PathActual = ActiveWorkbook.Path NombreLibro = PathActual + "\COPIAS\" + ActiveWorkbook.Name NombreLibro = PathActual + "\" +...