Jump to content

Antoni

Members
  • Content Count

    10,420
  • Joined

  • Last visited

  • Days Won

    594

Everything posted by Antoni

  1. SHDestino1.Range("b10:D1500").PasteSpecial Paste:=xlValues
  2. Era solo un ejemplo, debes adaptarlo y colocarlo en el lugar adecuado, por supuesto, después de haber obtenido las columnas D y E de la hoja correspondiente.
  3. Pues, .... algo parecido a esto: HojaO.Range("F" & FilaO) = HojaO.Range("F" & FilaO - 1) _ + HojaO.Range("E" & FilaO) _ - HojaO.Range("D" & FilaO)
  4. Click arrastra y suelta sobre el rango, tanto para resaltar como para restaurar el color de relleno. Cronograma de salidas.xlsm
  5. Estos son 2 de los archivos de ese aporte. SOLITARIO_PW11.xls SOLITARIO_PW12.xls
  6. Prueba con esta macro: Sub BuscarFechas() Application.ScreenUpdating = False For x = 2 To Range("B" & Rows.Count).End(xlUp).Row Range("B" & x).Select fechas = Split(Range("B" & x), "/* ") For f = 1 To UBound(fechas) ActiveCell.Offset(0, 1).Select ActiveCell = Left(fechas(f), 15) Next Next End Sub
  7. ¡Venga! vamos a crear una croudfunding. 🤣😘
  8. No tenemos la BD Access, no sabemos la tabla y no tenemos el formulario. ¿Asi pretendes que alguien te ayude? ☹️
  9. Hola Rolano, que gusto saludarte. Yo he entendido que simplemente quería acceder al código. Además, tiene un poco de lío con las hojas If Hoja3.Range("B1000000") = "" Then Hoja1.Range("B1000000") = DiskVolumeId(ruta) '¿Es correcto? End If
  10. Sube tu archivo con el Userform. ¿No entiendes que es imposible hacer nada sin él? 🙂
  11. Ficha programador\Código\Seguridad macros: Deshabilitar todas las macros y si te lo quieres ahorrar: Private Sub Workbook_Open() Dim ruta As String Hoja3.Unprotect Hoja3.Range("A1000000") = "C:\" ruta = Hoja3.Range("A1000000").Text If Hoja3.Range("B1000000") = "" Then Hoja1.Range("B1000000") = DiskVolumeId(ruta) End If If Hoja3.Range("B1000000") <> DiskVolumeId(ruta) Then Application.Visible = False MsgBox "El número de disco no corresponde al Token de la aplicación", , "Error: Número de serie no coincide" ThisWorkbook.Saved = True ThisWorkbook.Close End If Hoja3.Range("A1").Select Hoja3.Protect UserForm1.Show End Sub Function DiskVolumeId(Drive As String) As String Dim sTemp As String Dim iPos As Long iPos = InStr(1, Drive, ":") Drive = IIf(iPos > 0, Left(Drive, iPos), Drive & ":") sTemp = Hex(CreateObject("Scripting.FileSystemObject") _ .Drives.Item(CStr(Drive)).SerialNumber) DiskVolumeId = Left(sTemp, 4) & "-" & Right(sTemp, 4) End Function
  12. Tienes errores conceptuales básicos de VBA, sube tu archivo y explica lo que quieres hacer.
  13. Prueba poner esta macro en tu hoja. Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False If Target.Address Like "$C$*" Then Range("D" & Target.Row) = "" Application.EnableEvents = True End Sub
  14. Esto hace lo que pides, eso si, tendrás que adaptar los rangos y hojas a tu caso particular. Inventarios.xlsm
  15. No utilizar un ID tiene estos inconveniente, prueba así: Set busco = ActiveSheet.Range("A:A").Find(Trim(cbxActividades.Text), LookIn:=xlValues, lookat:=xlPart) Otra forma podría ser: Set busco = ActiveSheet.Range("A:A").Find(cbxActividades.Text, LookIn:=xlValues, lookat:=xlWhole)
  16. Le he echado un vistazo y esto está un poco liado. Revisa tu archivo, elimina TODAS las macros que no se usan, elimina TODOS los módulos vacíos o que no se usen y vuelve a subir el archivo.
  17. Prueba esta macro: Sub TextboxCelda() Application.ScreenUpdating = False For Each obj In ActiveSheet.OLEObjects If obj.OLEType = xlOLEControl Then ActiveSheet.Shapes(obj.Name).TopLeftCell = obj.Object.Value obj.Delete End If Next End Sub
  18. No te prometo nada, pero mañana o pasado, intentaré buscar alguna solución.
  19. Sub ImprimirSelección() Selection.PrintOut End Sub
  20. Ando un poco ocupado, en cuanto pueda lo miro. Un poco de paciencia.
×
×
  • Create New...

Important Information

Privacy Policy