JasallBcn

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

Buenas, Prueba saludos Casos_v1.xlsm

Buenas, Prueba... saludos Chiudi_Form_In_Modo_Alternativo_3.xlsm

buenas, prueba saludos Listado.xlsm

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

Buenas, una forma. saludos data foro.xlsm

Buenas, sin el archivo para probarlo te diría que puedes utilizar parámetros en la sub entre otras cosas. saludos

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

Buenas, te paso una solución , adáptala a tu código saludos turnos.xlsm

Felices Fiestas a todos / todas. Un abrazo a la comunidad

buenas, paso archivo saludos Prueba-Multi_v1.xlsm

Te falta el "=" y encerrar las dobles comillas entre comillas. Sheets("Hoja").Range("C5").Formula2 = "=IF(Tabla="""","""",Tabla)"

Buenas, Prueba : Sheets("Hoja").Range("C5").Formula2 = "=TABLA" Saludos

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

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

Buenas, una posible solución. saludos userform show según valor de una celda4_v1.xlsm

Buenas, te paso lo que entendí. saludos FORMATO PARA CODIGOS_v1.xlsm

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

Buenas, te paso código adaptado. saludos testtans_v1.xlsm

Buenas, te paso la solución saludos FTO CONDICIONAL_v1.xlsm

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

Buenas, te paso una forma. saludos Lista de juegos_V1.xlsm

Buenas, te paso fichero en macros. saludos CONTROL_PROJECTES_V2.xlsm

Bienvenida.

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