Jump to content

JasallBcn

Members
  • Posts

    195
  • Joined

  • Last visited

  • Days Won

    15
  • Country

    Spain

Everything posted by JasallBcn

  1. Buenas, la verdad es que no lo he probado, pero por lo que cuentan se puede utilizar para recordar algún nombre de función o método que no recuerdes. lo probare y comento. saludos
  2. Buenos días, en primer no podemos ver.. las imágenes no se muestran y en segundo lo mejor para recibir ayuda es aportar el archivo excel con los datos de ejemplo y el resultado que quieres obtener realizado a mano. saludos
  3. Buenas, sin el archivo para probarlo te diría que puedes utilizar parámetros en la sub entre otras cosas. saludos
  4. Buenas, te paso una solución Sub CopiaDestination() Dim RgIni As Range Dim FilaDestino As Long Set RgIni = Hoja1.Range("B4:B" & Hoja1.Range("B" & Rows.Count).End(xlUp).Row) FilaDestino = Hoja2.Range("A" & Rows.Count).End(xlUp).Row With Hoja2.Range("A1") For Each RgIni In RgIni .Offset(FilaDestino, 0) = RgIni.Value .Offset(FilaDestino, 1) = RgIni.Offset(0, 1).Value FilaDestino = FilaDestino + 1 Next RgIni End With End Sub saludos
  5. Buenas, te paso una solución , adáptala a tu código saludos turnos.xlsm
  6. Felices Fiestas a todos / todas. Un abrazo a la comunidad
  7. Te falta el "=" y encerrar las dobles comillas entre comillas. Sheets("Hoja").Range("C5").Formula2 = "=IF(Tabla="""","""",Tabla)"
  8. Buenas, Prueba : Sheets("Hoja").Range("C5").Formula2 = "=TABLA" Saludos
  9. Buenas, viendo las imágenes , creo que si eliminas las 14 primeras líneas del fichero csv el software reconocerá el fichero, pero quizás te falte información. Las líneas del csv tiene que tener tantos delimitadores ";" como columnas del fichero. es decir todas las líneas deben tener 5 ";" lo ideal es que subas el fichero cambiando los datos saludos
  10. Buenas @Mohamad Marrawi Marrawi , seria de esta forma : Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B:B,E:E,H:H")) Is Nothing And InStr(1, Target.Address, ":") = 0 Then If Target <> Empty Then Target.Offset(0, 1).Value = Date Else Target.Offset(0, 1).Value = "" End If End If End Sub Saludos
  11. Buenas, una posible solución. saludos userform show según valor de una celda4_v1.xlsm
  12. Buenas, te paso lo que entendí. saludos FORMATO PARA CODIGOS_v1.xlsm
  13. Buenas, el problema lo tienes en la línea scadena = Trim(Replace(scadena, n, "")) sí scadena contiene "1 0 8 9 10 11" al reemplazar n = "1" borra el 1 , el 1 del 10 y el 11 completo. para evitarlo deberías envolver cada número entre algún carácter o darle un espacio al principio y final para luego cuando reemplaces lo realices con los espacios también " 1 0 8 9 10 11 " sería algo así scadena = Trim(Replace(scadena, " " & n & " ", " ")) saludos
  14. Buenas, te paso código adaptado. saludos testtans_v1.xlsm
  15. Buenas , según tu código te paso adaptación: Sub COPIA() Application.ScreenUpdating = False Dim wbLibroOrigen As Workbook Dim wsHojaOrigen As Worksheet Dim wbLibroDestino As Workbook Dim wsHojaDestino As Worksheet Dim Origen$ Dim ruta() As String ruta = Split("Lista_Negra_SAT.csv,Lista_Negra_SAT2.csv", ",") ' lista archivos separada por , For x = 0 To UBound(ruta) Origen = ActiveWorkbook.Path & "\" & ruta(x) 'Datos destino Set wbLibroDestino = Workbooks(ThisWorkbook.Name) Set wsHojaDestino = wbLibroDestino.Worksheets("Hoja1") 'Datos origen Set wbLibroOrigen = Workbooks.Open(Origen) Set wsHojaOrigen = wbLibroOrigen.Worksheets(Replace(ruta(x), ".csv", "")) uFilaO = wsHojaOrigen.Range("A" & Rows.Count).End(xlUp).Row uFilaD = wsHojaDestino.Range("DA" & Rows.Count).End(xlUp).Row wsHojaOrigen.Range("A1:AD" & uFilaO).Copy Destination:=wsHojaDestino.Range("DA" & uFilaD) Workbooks(wbLibroOrigen.Name).Close Application.ScreenUpdating = True Next End Sub Saludos
  16. Buenas, te paso fichero en macros. saludos CONTROL_PROJECTES_V2.xlsm
  17. Buenas , a título ilustrativo , otra forma de hacerlo. =LET(Final;VALOR.NUMERO(EXTRAE(A2;3;LARGO(A2)));IZQUIERDA(A2;2) & REPETIR(0;8-LARGO(Final)) &Final) Saludos siete.xlsm
×
×
  • Create New...

Important Information

Privacy Policy