Respuesta
en
Microsoft Excel
y en 1 temas más
a
Macro para pasar textos de excel a varios archivos .txt
Te anexo la macro, para generar un archivo txt por fila. Sub Generar_Txt() 'Por.Dante Amor Set h1 = ActiveSheet ruta = ThisWorkbook.Path & "\" If Left(ruta, 1) <> "\" Then ruta = ruta & "\" For i = 1 To h1.Range("A" & Rows.Count).End(xlUp).Row...
Respuesta
en
Microsoft Excel
a
Formulario con un combobox y dos textbox que hacen un doble filtrado
Te anexo 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 4 temas más
a
Como usar la Función "Fórmula R1C1"
¿Pero qué quieres sumar? ¿Y para qué el contador? ¿Y por qué lo haces de abajo hacia arriba?
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Como hacer una macro si en una hoja están todos los y en otra solo los que asistieron en el día, si se repite el nombre poner OK
Te anexo la macro Sub Pone_Asistencia() Set h1 = Sheets("Mayo") 'hoja con todos los datos Set h2 = Sheets("Asistencia") 'hoja con solo los nombres de personas que asistieron en el día For i = 2 To h2.Range("A" & Rows.Count).End(xlUp).Row nombre =...
Respuesta
en
Microsoft Excel
y en 1 temas más
a
Como foliar documentos en blanco
Haber si entendí. Tienes un formato en una hoja, ¿quieres imprimir ese formato 500 veces y en cada hoja impresa vaya cambiando el número de folio? Si es así utiliza la siguiente macro: Sub imprimir() For i = 1 To 5 Range("F1").Value = "Folio N° " &...
Respuesta
en
Microsoft Excel
a
¿Cómo ejecutar una macro en excel condicionada?
Prueba con lo siguiente y me comentas Private Sub Worksheet_Change(ByVal Target As Range) If Target.Count > 1 Then Exit Sub Application.EnableEvents = False If Target.Column = 14 Then If IsDate(Target.Offset(, 1).Value) Then...
Respuesta
en
Microsoft Excel
y en 4 temas más
a
Comparar datos entre hojas de Excel mediante Macros
Te anexo la macro Sub Buscar_Dato() 'Por Dante Amor Set h1 = Sheets("RED ALDO") Set h2 = Sheets("Items") ' For i = 2 To h1.Range("R" & Rows.Count).End(xlUp).Row Set b = h2.Columns("C").Find(h1.Cells(i, "R"), lookat:=xlWhole) If Not b Is Nothing Then...
Respuesta
en
VBA
y en 1 temas más
a
Cómo copiar y crear nuevas filas según criterio
Te anexo la macro. Antes de ejecutar la macro debes cambiar estos datos: Set h1 = Sheets("Hoja5") 'hoja origen Set h2 = Sheets("Hoja6") 'hoja destino col = "C" 'columna de letras fila = 2 'fila inicial donde empiezan las letras Cambia "Hoja5 " por el...
Respuesta
en
Microsoft Excel
y en 2 temas más
a
Que un textbox muestre un resultado en formato hora
Prueba con lo siguiente: Range("B3").Value = TimeValue(TextBox1. Value) Me comentas si te funciona
Respuesta
en
Microsoft Excel
a
Excel. Ocultar filas en múltiples hojas.
Te anexo la macro Sub Ocultar_Filas() 'Por Dante Amor For Each h In Sheets h.Rows("1:89").EntireRow.Hidden = True h.Rows("191:212").EntireRow.Hidden = True Next MsgBox "fin" End Sub '.[Sal u dos. Dante Amor. No olvides valorar la respuesta....