Saltar al contenido

Diego9019

Miembros
  • Contador de contenido

    610
  • Unido

  • Última visita

  • Days Won

    5

4Seguidores

Sobre Diego9019

  • Rango
    Miembro

Formas de contacto

  • Web http://solucionesmsexcelvba.blogspot.mx/
  • Skype accountant323

Información de perfil

  • Sexo Hombre
  • Localización: México

Configuraciones

  • Campo que utilizas como separador de argumentos ,

Visitantes recientes del perfil

693 visitas de perfil
  1. Ayuda buscar coincidencias de datos

    Hola @eugeniocol Te soy sincero, llevo como 15 minutos viendo tu archivo, pero la verdad no entendi nada. Por ejemplo: PSC 2 ahí pones como resultado 2 supongo que es porque dentro de la fila del rango b4:p4 existen dos 5. Pero PSC 4 ahí pones que hay 4 y no entiendo donde sacas ese dato y PSC 6 peor, porque no se donde sacas esos datos . Así como dice @Silvia Sube un archivo un poco mas clara.
  2. Imagen fija en hoja de excel

    1..- No se que versión de excel manejas, pero supongo que es parecido, tengo excel 2016: 1.1 En tu boton clic derecho en tu imagen y/o boton - Clic en "Formato de forma..."- "Tamaños y propiedades"- "Propiedades"- Seleccionar donde dice "No mover ni cambiar tamaño con celdas. No se si es lo que necesitas. Saludos.
  3. Ir a hoja según valor de celda y sumar

    @jesus miguel digamos que la columna que deseas sumar es la columna A entonces copia y pega este código: For Each CELDAS In Columns("A").SpecialCells(xlCellTypeConstants).Areas Cells(CELDAS.Row + CELDAS.Rows.Count, 1).Value = WorksheetFunction.SUM(Range(Cells(CELDAS.Row, 1), _ Cells(CELDAS.Row + CELDAS.Rows.Count - 1, 1))) Next CELDAS Saludos
  4. check box u option button

    Estimado @JDG creo que podría funcionar de la siguiente manera: Option Explicit Private Sub CheckBox1_Click() If CheckBox1.Value = False Then Range("A3") = "" If CheckBox1.Value = True Then Range("A3") = "OK" End Sub Private Sub CheckBox2_Click() If CheckBox2.Value = False Then Range("A4") = "" If CheckBox2.Value = True Then Range("A4") = "OK" End Sub Private Sub OptionButton1_Click() If OptionButton2.Value = False Then Range("A2") = "" If OptionButton1.Value = True Then Range("A1") = "OK" End Sub Private Sub OptionButton2_Click() If OptionButton1.Value = False Then Range("A1") = "" If OptionButton2.Value = True Then Range("A2") = "OK" End Sub Private Sub UserForm_Initialize() If Range("A1") > "" Then OptionButton1.Value = True If Range("A2") > "" Then OptionButton2.Value = True If Range("A3") > "" Then CheckBox1.Value = True If Range("A4") > "" Then CheckBox2.Value = True End Sub Te adjunto el archivo. Referente a este mensaje: ¡No se de que hablas!. Saludos, Libro1.xlsm
  5. Copia especial de un rango

    Aqui va otra forma: La idea esque no estes cambiando la direccion de la carpeta de manera manual, basta crear una carpeta y pegar estos dos archivos. Option Explicit Sub copiar() Application.ScreenUpdating = False Dim Ldestino As Workbook, Datoorigen As Excel.Worksheet, N_Hoja As Excel.Worksheet, rngDestino As Excel.Range Set Ldestino = Workbooks.Open(ActiveWorkbook.Path & "\Destino.xlsx") ThisWorkbook.Activate Set Datoorigen = Worksheets("Hoja1") '<== Cambia el nombre de la hoja de acuerdo al nombre de tu hoja original Set N_Hoja = Ldestino.Worksheets("Hoja1") '<== Cambia el nombre de la hoja de acuerdo al nombre de tu hoja original Const celdaDestino = "B1" Set rngDestino = N_Hoja.Range(celdaDestino) Hoja1.Range("B1:G15").Copy rngDestino.PasteSpecial Application.CutCopyMode = False Ldestino.Save Ldestino.Close MsgBox "Información copiada" End Sub Saludos @johnmpl & @maximo1 Copia.rar
  6. Te propongo algo: 1.- En tu control tendrías que crear un folio por cada registro Te adjunto un ejemplo para que lo puedas adaptar en tu archivo original Saludos, Libro1.xlsm
  7. actualizar hora en textbox

    1.- Inserta un módulo y pega este código: Option Explicit Public Actualizar As Boolean Sub Reloj() espejito.Show (False) End Sub Sub Hora() If Actualizar Then espejito.TextBox1 = Format(Now, "dddd dd/mm/yyyy hh:mm:ss") Application.OnTime Now + TimeValue("00:00:01"), "Hora" End If End Sub 2.- En un form en Private Sub UserForm_Initialize() pega este código: Actualizar = True TextBox1 = Format(Now, "dddd dd/mm/yyyy hh:mm:ss") Application.OnTime Now + TimeValue("00:00:01"), "Hora" Y por ultimo, me comentas si te funcionó o no, vale. Saludos, Copia de Nueva caja registradora-1.xlsm
  8. actualizar hora en textbox

    Estimado (a) @cabrerase Puedes intentar algo así: TextBox1 = Now Antes de ingresar los datos en la hoja pega este siguiente código: Saludos,
  9. Hola a todos. Adjunto otra posible solución Private Sub CommandButton1_Click() Application.ScreenUpdating = False Dim Ultimafilacondatos As Integer Dim Filalibre As Integer Ultimafilacondatos = Hoja1.Range("C" & Rows.Count).End(xlUp).Row Filalibre = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1 If Filalibre < 1 Then Filalibre = 1 For FILA = 2 To Ultimafilacondatos If Hoja1.Range("C" & FILA) = Hoja1.Range("F" & FILA).Value + Hoja1.Range("G" & FILA).Value Then Hoja1.Range("A" & FILA & ":H" & FILA).Copy Hoja2.Range("A" & Filalibre).PasteSpecial xlPasteAll Application.CutCopyMode = False Filalibre = Filalibre + 1 End If Next For FILA = 2 To Ultimafilacondatos If Hoja1.Range("C" & FILA) = Hoja1.Range("F" & FILA).Value + Hoja1.Range("G" & FILA).Value Then Hoja1.Range("A" & FILA & ":H" & FILA).Delete ' = "" End If Next Application.ScreenUpdating = True End Sub Saludos Copia de TRASPASO.xlsm
  10. Colorear celdas - formato condicional

    Estimado @plinio Utiliza el formato condicional. Ya que no mencionas que celda tiene que quedar, te toca configurar de acuerdo a tu necesidad. Para verde: =SI($C$2>=120,$C$2) Para Rojo: =SI($C$2<0,$C$2) Si no es lo que pretendes realizar, sube un archivo con un ejemplo clara para que te puedan brindar el apoyo. Saludos Libro1.xlsx
  11. cambiar vlor de celda pulsando boton vb

    Estimado (a), de lo anterior ya quedó solucionado por lo que se recomienda abrir un nuevo tema de lo que necesitas y con una explicacion clara para que te puedan brindar la ayuda correcta. Saludos
  12. cambiar vlor de celda pulsando boton vb

    Estimado (a), Por favor copia este código, con un boton te actualiza toda las celdas, Sub Fechahora() Dim hoja As Worksheet On Error Resume Next Set hoja = Worksheets("PROX VENCIMIENTOS") '<--Aqui puedes cambiar el nombre de tu nombre de tu hoja Ultimafila = Cells(Rows.Count, 2).End(xlUp).Row hoja.Cells(3) = Now '< --Anotar la fecha en la celda C1 For i = 4 To Ultimafila '<--Le decimos que empieze anotar la fecha apartir de la fila 4 de acuerdo a los datos cargados en la columna b4 en adelante hoja.Cells(i, 3) = Now Next End Sub Me comentas si es lo que necesitas. Saludos Copia de prueba botones.xlsm
  13. cambiar vlor de celda pulsando boton vb

    Estimado (a) @juanmanuel85 checalo, aver si es lo que necesitas: Hoja1.Cells(4) = Now Saludos,
  14. Borrar Macro protegido

    estimado (a) @pedrot, para solucionar esto: al principio de código agrega esta linea: ActiveSheet.Unprotect (Tu contraseña)'<--- y al final: ActiveSheet.Protect (Tu contraseña) <--- Saludos,
  15. Aqui complementando el código: una mezcla con el código de @waltermendez99 ''################ Sheets("hoja1").Select ufila = Range("G" & Rows.Count).End(xlUp).Row col = Range("G2").Column k = 11 For i = 2 To ufila If Cells(i, col) < 0 Then Sheets("hoja1").Range("k" & k) = Sheets("hoja1").Range("g" & i) k = k + 1 End If Next ''################ x = Range("g1000").End(xlUp).Row contar = 0 fila = 11 For i = 6 To x If Cells(i, 7) < 0 Then Cells(fila, 9) = Cells(i, 7).Address fila = fila + 1 contar = contar + 1 End If Next i Cells(10, 10) = contar ''################ Saludos
×