raray044

ifrancoz respondió: Se puede utilizar algo como esto: Dim Jul As Long Dim Ano As Integer Dim Dia As Integer Dim Fecini As Date Dim Fecfin As Date Private Sub Convertir_Juliana() Ano = Mid(Jul, 1, 4) Dia = Mid(Jul, 5, 3) - 1 Fecini = Ano & "/" & "01/01" Fecfin =...

ifrancoz respondió: . Buscar la última celda con datos, en una columna: Sub ActualizaHoja() Sheets(2).Select 'selecciona la Hoja 2 Range("A2").Select 'el control se hará sobre la columna A, a partir de la fila While ActiveCell.Value "" ActiveCell.Offset(1,0).Select 'si...