Jump to content

AlexanderS

Moderators
  • Content Count

    1,287
  • Joined

  • Last visited

  • Days Won

    52

Everything posted by AlexanderS

  1. @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.
  2. 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.
  3. 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
  4. 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.
  5. 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
  6. Hola @malita33, prueba el adjunto a ver si es lo que necesitas. Saludos a todos. StockForm.xlsm
  7. Muchas gracias @digitalboy, con respecto a la referencia la elimine del archivo ya que esta no hacia falta, si lo vuelves a descargar no debería darte problemas. Saludos.
  8. Hola @arlyfox, perdona por contestar hasta ahora, pensé ya lo había echo. Se supone que ya tiene un Beep cuando entra un nuevo mensaje, otra opción es hacer que windows "nos hable" cuando llegue un nuevo mensaje, prueba el adjunto a ver que tal. Chat_Excel_Riddle.xlsm
  9. Hola, deberás subir una muestra de tu archivo o al menos el código para que te podamos ayudar, el error te sale porque estas haciendo referencia a algo que probablemente no exista. https://ayudaexcel.com/foro/terms/ Saludos
  10. Hola puedes probar utilizando Val() en lugar de Cdbl(). .Cells(n, 41).Value = Val(TextBox12) + Val(TextBox14) + Val(TextBox15) + Val(TextBox16) + Val(TextBox17) De esa forma puedes omitir el tener que colocar un "0" si el textbox esta vació, solo debes tener cuidado si trabajas con decimales. Saludos.
  11. @digitalboy Bueno lo principal es que no suelo trabajar con Google Sheets, ademas de que la mayoría de proyectos o aportes como este los realizo en los tiempos muertos en mi trabajo, pero por alguna razón las paginas de Google Sheets y Drive tienen una restricción de acceso por políticas de la compañía, así que no lo intente mucho ya que en casa no tengo mucho tiempo. Sin embargo seria grandioso si te animas a "portar" el chat a la nube, es un proyecto que me gustaría ver. Saludos.
  12. @digitalboy lo intente tratar de adaptar para que funcionar en la nube (con Drive) pero nunca logre que me funcionara, lo que si es posible es conectarlo a una base de SQL ya lo he probado desde mi casa conversando con una persona en el trabajo. Saludos.
  13. Excelente!! Tal vez te animas y me ayudas con el tablero de ajedrez que nunca termine Saludos
  14. Tienes razón creí que lo que buscaba era un "si" dentro del rango, entonces mal interprete la pregunta. Saludos
  15. Hola @José Sandoval Gómez, yo tampoco tengo experiencia con "toros" , me gustan mas las macros y las hojas de excel . Espero que disfrutes del foro somos una gran comunidad dispuesta a prestar ayuda a que la necesite. Saludos y bienvenido.
  16. Hola otra forma: Sub prueba() If WorksheetFunction.CountIf(Range("A1:A4"), "si") > 0 Then MsgBox "vale" Else MsgBox "no vale" End If End Sub Saludos a todos.
  17. Hola @arlyfox, voy a revisar pero a mi no me da el problema, esperemos si alguien mas puede probar el archivo y ver si tiene el mismo problema. Saludos.
  18. Hola @Antoni, después de un quebradero de cabeza logre que me reconociera el 4 en raya en vertical, horizontal y en diagonal. Puse una pequeña seña para que veas lo que agregue, lo principal esta en la macro "Verificar_ganador". Saludos. Cuatro en raya.xlsm
  19. @MIGUEL2594 o @JoseCAstillo no crees consultas repetidas, si buscas en Google tienes una planilla en el primer y segundo resultado. https://www.google.com/search?client=opera&q=+BÚSQUEDA+MASIVA+DE+ESSALUD&sourceid=opera&ie=UTF-8&oe=UTF-8 Saludos.
  20. Hola @JoseCAstillo, puedes probar aqui: https://www.google.com/search?client=opera&q=+BÚSQUEDA+MASIVA+DE+ESSALUD&sourceid=opera&ie=UTF-8&oe=UTF-8 Saludos
  21. Saludos y bienvenido, espero que disfrutes del foro.
  22. @M0sh ¿No te sirve un formato condicional en lugar de una macro? Colorear filas.xlsx
  23. Hola @gtricerri, prueba con el siguiente código: Function BordeyColor(color As Range, rango As Range) As Long For Each cel In rango If cel.Interior.ColorIndex = color.Interior.ColorIndex Then _ If cel.Borders(xlDiagonalDown).LineStyle <> xlLineStyleNone Or cel.Borders(xlDiagonalUp).LineStyle <> xlLineStyleNone Then _ BordeyColor = BordeyColor + 1 Next End Function La sintaxis seria: =BordeyColor(CeldaDeMuestra; RangoAContar) Comentas. Saludos.
  24. Que tal @Antoni en lo que respecta al foro de aportes el limite de subida de un archivo es de 500mb, los 100kb solo aplican en las consultas. Saludos
  25. Hola @Diego9019 trate de explicar lo mas que pude las lineas, si tienes alguna duda puedes consultarme. Saludos Ahorc.xlsm
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png