Dante Amor

H o l a: Te anexo la macro Según tu ejemplo los saldos a repartir empiezan en la celda B5. Ajusta el inicio de los saldos y el número de sucursales en las siguientes líneas, cambia el 5, la "B" y el número de sucursales: fini = 5 'fila inicial cini =...

H o l a: Según entiendo en el textbox vas a poner el número de columna para completar el rango desde la celda(1,1) hasta la celda (10, valor). Si es así, entonces quedaría así: valor = Val(UserForm1.TextBox1.Value) If valor = "" Or Not...

Prueba con la siguiente macro Sub Archivo() 'Por.Dante Amor ruta = "C:\trabajo\" celda = ActiveCell.Address With Application.FileDialog(msoFileDialogFilePicker) .Title = "Seleccione archivo txt" .Filters.Clear .Filters.Add "Archivos txt", "*.txt"...

H o l a : Puedes enviarme el archivo explicando con ejemplos cuál es el resultado que quieres. Recuerda poner tu nombre de usuario en el asunto del correo.

H o l a : Envíame tu archivo con formulario, me explicas con un ejemplo lo que quieres hacer. Mi correo [email protected] En el asunto del correo escribe tu nombre de usuario “Aylin De Leon” y el título de esta pregunta.

Quedaría así: Private Sub But_Grabar_Click() Call GuardarInformacion ActiveWorkbook. Save Unload Me End Sub 'S aludos. Dante Amor. Recuerda valorar la respuesta. G racias

En el rango range(cells(fila, col), cells(fila, col)) tienes que indicar la hoja para cada celda, de lo contrario te tomará datos de la hoja activa, por ejemplo, tendría que ser así: Hoja. Range(Hoja. Cells(fila, col), Hoja. Cells(fila, col)) Prueba...

Se tiene que hacer una macro. Para hacer la macro tienes que decirme algunos ejemplos, es decir, en cuál hoja y en cuál celda vas a poner el cliente. Tienes una lista de hojas y clientes, es decir, qué hojas debe ocultar o mostrarse según el nombre.

Pon la siguiente fórmula en B10 =SI(Y(ESNUMERO(A10),D10<>"",E10<>""),"VACIO"&A10,"") sal u dos

Prueba con lo siguiente: Sub AjustarGrafica() For Each grafica In ActiveSheet.ChartObjects grafica.Select For Each wserie In ActiveChart.SeriesCollection If wserie.Name = "FluidD" Then Set BA1 = ActiveChart.SeriesCollection("FluidD") With BA1 With...