Marcial C. C.

Marcial C. C.

Experto en Excel VBA
 47,6K puntos  Galicia, España @cascamar desde - visto
Preguntar

Preguntas y respuestas en Programación

Respuesta en y en 2 temas más a

Abrir otro programa con una macro

Prueba con esto: Sub AbrirPrograma() ejecuta = Shell("C:\Facturación\Factur.exe ", vbMaximizedFocus) End Sub Cambia la ruta y el ejecutable y listo. Si te ha valido la respuesta.
Respuesta en y en 2 temas más a

Copiar datos de una hoja de excel 2003 a otra de acuerdo con un criterio determinado y generar hojas con esos nombres

Esto hace lo que pides: Sub Crear_Hojas() Dim hoja As Worksheet 'Por Marcial Castro Set h1 = Sheets("DATOS") Set h2 = Sheets("DATOS QUÍMICOS") 'Recorremos la hoja DATOS For t = 1 To h1.Range("B" & Rows.Count).End(xlUp).Row If h1.Cells(t, 2) =...
Respuesta en y en 2 temas más a

¿Hojas de calculo no reconocen objetos?

Es posible que el error se deba a actualizaciones de Windows y se soluciona borrando los archivos con extensión exd de office. No pasa nada por borrarlos, porque en cuanto arranques una aplicación Office, se vuelven a crear. Puedes buscarlos con el...
Respuesta en y en 2 temas más a

Validación de datos de numero par e impar

Para los pares menores que 62, utiliza en validación de datos: =Y(A1<60;RESIDUO(A1;2)=0) y para los impares =Y(B1<79;RESIDUO(B1;2)=1) Debes ponerlo en fórmula personalizada. Si te ha valido la respuesta.
Respuesta en y en 2 temas más a

Función contar. Si. Conjunto en macro

Para que sea más rápido, utiliza la forma abreviada de especificación de rangos: Sub contar_si_conjunto() MsgBox (WorksheetFunction.CountIfs( _ [A1:A99000], "Isabel", _ [B1:B99000], "J.Ramón", _ [C1:C99000], "Sofía", _ [D1:D99000], "Antón", _...
Respuesta en y en 2 temas más a

Exportar de cada fila de un excel a un arxhivo txt

Esto te graba cada fila con las columnas A, B y C, separadas por una coma. Sub Grabar_Archivo_Txt() numArch = FreeFile Open "d:\datos.txt" For Output As #numArch For t = 1 To Range("A" & Rows.Count).End(xlUp).Row Print #1, Range("A" & t).Value & ","...
Respuesta en y en 2 temas más a

Macro que me diga la ubicación de la celda que contenga el dato que quiero.

Puedes poner tu macro para poder ayudarte.
Respuesta en y en 2 temas más a

Crear macro para eliminar filas cuyo valor sea igual a cero

Esta macro hace lo que necesitas: Sub Eliminar_filas() 'Ultima fila de datos uf = Range("A" & Rows.Count).End(xlUp).Row 'Recorremos el bucle desde la última fila con datos, hasta la fila 6' For f = uf To 6 Step -1 'Si la celda de la columna "E" de la...
Respuesta en y en 1 temas más a

Macro para copiar ciertas celdas de una hoja y guardarlas en otra hoja

Prueba con esto: Private Sub CommandButton1_Click() Set h1 = Sheets("Hoja1") Set h2 = Sheets("Hoja2") uf = h1.Range("A" & Rows.Count).End(xlUp).Row Range("A" & uf & ":B" & uf & ",E" & uf).Copy uf = h2.Range("A" & Rows.Count).End(xlUp).Row + 1...
Respuesta en y en 2 temas más a

Pegar rango en otro libro nuevo y guardar

Esta macro hace lo que tu deseas. Sub Grabar_Rango_En_Libro_Nuevo() Dim NL As Workbook ruta = "u:/produccion/cuentas\" nombre = [a1] Range("B1:G40").Copy 'Guardamos el libro en una variable' Set NL = Workbooks.Add 'Pegamos los valores en el libro...