Luis Mondelo

Con la siguiente macro lo conseguirás: (Me he figurado que los datos en la hoja7 empiezan desde m1 hacia abajo) Sub ejemplo() 'por luismondelo fila = 5 columna = 4 Sheets("hoja7").Select Range("m1").Select Do While ActiveCell.Value <> "" If...

Algo así te puede servir: Sub ejemplo() 'por luismondelo valor = Month(Range("a1").Value) If valor = 1 Then Workbooks.Open "c:\mis documentos\libro2.xlsx" Else Workbooks.Open "c:\mis documentos\libro3.xlsx" End If End Sub recuerda finalizar

Te paso mi solución con esta macro: Sub ejemplo() 'por luismondelo fila = 1 columna = 1 Sheets("hoja1").Select Range("a1").Select Do While ActiveCell.Value <> "" If ActiveCell.Offset(1, 0).Value = 1 Then ActiveCell.Copy Sheets("hoja2").Cells(fila,...

Te mando mi solución con este ejemplo: El archivo base.xlsx deberá estar abierto para hacer el proceso La macro está confeccionada para copiar la columna a la hoja1 del archivo base.xlsx a partir del rango a1 Sub ejemplo() 'por luismondelo nombre =...

Te mando mi solución. La macro está programada para ejecutarse mediante un botón: Private Sub CommandButton1_Click() 'por luismondelo For x = 0 To ListBox1.ListCount - 1 suma = suma + ListBox1.List(x, 3) Next textbox1.Value = suma End Sub recuerda...

Supongo que siendo objetos tienes que vigilar la superposición de los mismos, es decir, si un objeto está por encima del otro le tapará. Si quieres puedes enviármelo para verlo de cerca

Te mando mi solución con esta macro: Sub ejemplo1() 'por luismondelo For Each celda In Range("b1:h1") If Application.WorksheetFunction.CountA(Columns(celda.Column)) = 0 Then celda.EntireColumn.Hidden = True End If Next End Sub recuerda finalizar

Prueba con esta: Sub ejemplo() 'por luismondelo On Error Resume Next For Each hoja In ActiveWorkbook.Sheets hoja.Select ActiveSheet.ShowAllData Next End Sub

Te mando mi solución con esta macro: Sub ejemplo() 'por luismondelo Range("a2").Select Do While ActiveCell.Value <> "" fila = ActiveCell.Row For Each celda In Range(ActiveCell, ActiveCell.Offset(0, 12)) If celda.Value = "" Then celda.Value = 0 lista...

La macro correcta sería así: Sub ejemplo() celda1 = "A1" celda2 = "B6" Range(celda1 & ":" & celda2).Interior.Color = RGB(200,160,35) End Sub Recuerda finalizar