Saltar al contenido

Riddle

Moderadores
  • Contador de contenido

    1154
  • Unido

  • Última visita

  • Days Won

    42

Sobre Riddle

  • Rango
    Riddle

Información de perfil

  • Sexo Hombre
  • Localización: Costa Rica

Configuraciones

  • Campo que utilizas como separador de argumentos ,

Visitantes recientes del perfil

1542 visitas de perfil
  1. Hola @mimoya, entonces solo debe hacer lo del rango de fecha y lo de la cantidad de caracteres no? Si es así te dejo mi macro adaptada. Saludos a todos. TODO_DICIEMBRE_Riddle.xlsb
  2. Hola, necesito ayuda.

    Trataré de explicarme, en una hoja de cálculo con varias pestañas, una de ellas es la cartera completa de clientes y las restantes son los clientes por provincia; estan vinculadas con la pestaña de la cartera principal para que asi se puea modificar el contenido en caso de cambios.

    Mi pregunta es, ¿qué puedo hacer, si es posible, para que cuando añada un nuevo cliente en la cartera principal, aparezca reflejado en la pestaña correspondiente a su provincia?

    Me urge un poquito, gracias por vuestra ayuda.

    Lunilu

    lunilu.zip

  3. Hola, en realidad es mas rápido escribir dentro dentro de una variable, dejo mi aporte y me robo el cronometro de cacho. Saludos a todos. problema_RIDDLE.xlsm
  4. Me presento

    @julmaram1 bienvenido al foro!!! Saludos.
  5. Hola @JBS, no te funciona porque estas declarando la variable "micelda" como el rango B5 de la hoja activa, por lo cual debes hacerlo dentro de bucle de esta forma: Sub Prueba_Variables_Objeto() Dim mihoja As Worksheet Dim micelda As Range For Each mihoja In Worksheets Set micelda = mihoja.Range("b5") With micelda .Value = 100 .Interior.Color = vbBlue End With Next mihoja End Sub Donde si notas debes indicar también a que hoja pertenece el rango mihoja.Range("b5") Saludos.
  6. Mantener datos de UserForm

    Hola a todos, dejo mi aporte basado en el código de @Antoni solo que en lugar de utilizar una hoja utilizo el registro de windows para guardar los datos. Saludos. formulario (5).xlsm
  7. Buenas tardes, Tienes razón en que es un tema ya pasado porque haz estado ligado por mucho tiempo, pero para mi no, porque es mi primer enlace, y si estoy pidiendo apoyo es por lo siguiente:

    Tengo como 3 meses haciendo este proyecto y por mas que busco no encuentro nada que me pueda ayudar, no soy nada bueno en esto y me ha costado un buen sacar algunos formularios para registrar proveedores, registro de facturas  y que se almacenen. ahora solo pido su ayuda para generar estos reportes. 

    No quiero ser grosero ni mucho menos, solo entiende que estoy como loquito por terminar mi proyecto

    Acepta por favor  mi disculpa 

    1. Riddle

      Riddle

      Buenas Tardes @Arturo Castillo Chavez, es por normas del foro y como recomendación personal el que crees un nuevo tema con tu consulta, los usuarios que participaron en ese tema tienen casi un año desde la ultima vez que entraron al foro por lo que no vas a obtener ayuda de parte de ellos.

      Para tu consulta debes explicar ampliamente que necesitas y adjuntar ejemplos en excel, de ese modo alguien se animara a atender tu consulta.

      Puedes crear la consulta desde el siguiente link:

      https://ayudaexcel.com/foro/forum/6-macros-y-programación-vba/?do=add

      Saludos

  8. Hola @Arturo Castillo Chavez, crea un nuevo tema con tu consulta, este tema es de hace 4 años. Te invito a visitar las Normas del foro, para que puedas obtener la mejor ayuda posible. Ten en cuenta que este es un foro de ayuda en temas puntuales, si lo que buscas es un trabajo completo lo vas a tener difícil. Saludos.
  9. Hola @Manuyes, puedes colocar este código en el formulario: v Private Sub ComboMeses_Change() lista End Sub Private Sub UserForm_Initialize() For x = 2017 To 2020: ComboAños.AddItem x: Next For x = 1 To 12: ComboMeses.AddItem UCase(MonthName(x)): Next End Sub Private Sub lista(): On Error Resume Next Me.ListBox1.Clear For Each cel In Range([A2], [A1].End(xlDown)) If CDbl(Year(cel)) = CDbl(Me.ComboAños) And CDbl(Month(cel)) = CDbl(Me.ComboMeses.ListIndex + 1) Then Me.ListBox1.AddItem CDate(cel) Me.ListBox1.List(Me.ListBox1.ListCount - 1, 1) = cel.Offset(0, 1) End If Next End Sub Comentas. Saludos.
  10. @Jose BN, prueba así: Sub Mac612(): On Error Resume Next Application.ScreenUpdating = False Dim ws1 As Worksheet, ws2 As Worksheet, R& Dim vacias As String vacias = Range("A6:K16").SpecialCells(xlCellTypeBlanks).Address(0, 0) If Not vacias = "" Then MsgBox "Las celdas " & vacias & " se encuentran vacias" Else Set ws1 = Sheets("Diario"): Set ws2 = Sheets("BD") If ws1.[a6] = "" Then Exit Sub R = Application.Max(6, 1 + ws2.Cells(Rows.Count, "a").End(xlUp).Row) With ws1.Range("K6", ws1.[a5].End(xlDown)) .Copy ws2.Cells(R, "a") ws2.Cells(R, "a").Resize(.Rows.Count, 2) = .Resize(, 2).Value End With End If End Sub Saludos.
  11. Hola @Jose BN, intenta con este código. Sub Celdas_vacias(): On Error Resume Next Dim vacias As String vacias = Range("A6:K16").SpecialCells(xlCellTypeBlanks).Address(0, 0) If Not vacias = "" Then MsgBox "Las celdas " & vacias & " se encuentran vacias" End If End Sub Comentas. Saludos.
  12. Hola @marta, el código de la hoja "Worksheet_Change(ByVal Target As Excel.Range)", como bien indica su nombre se dispara cuando dentro de hoja ocurre un cambio en alguna de sus celdas, por lo cual si en el código del modulo estas realizando algún cambio en alguna celda como escribir algún valor dentro de ella automáticamente pasa al "Worksheet_Change(ByVal Target As Excel.Range)" Saludos
  13. Hola una forma de generar una contraseña aleatoria y proteger la hoja activa con esta: Private Sub aleatoria() Dim i As Integer Dim pass As String For i = 0 To Application.WorksheetFunction.RandBetween(30, 90) pass = pass & Trim(Chr(Application.WorksheetFunction.RandBetween(30, 90))) Next ActiveSheet.Protect pass End Sub Claro que no podrás saber cual es la contraseña, y también debes tener siempre en cuenta lo sencillo que es romper la protección de una hoja en excel. Saludos.
  14. No me había fijado que el botón de "Eliminar" funcionaba sobre el listbox2, por lo que te adjunto nuevamente el archivo con la correccion. Saludos. StockForm.xlsm
  15. Hola @malita33, prueba el adjunto a ver si es lo que necesitas. Saludos a todos. StockForm.xlsm
×