Dante Amor

H o l a: Prueba con lo siguiente. Supongo que ya tienes el código para pasar los datos de los textbox a las celdas, pero como sea te envío un código: Private Sub CommandButton1_Click() 'Por.Dante Amor u = Range("A" & Rows.Count).End(xlUp).Row + 1 If...

H o l a: Te anexo la macro, en las variables ccol y cnum tienes los contadores de color y número: Sub ContarColor() 'Por.Dante Amor u = ActiveSheet.UsedRange.Rows(ActiveSheet.UsedRange.Rows.Count).Row For i = 1 To u If Cells(i,...

H o l a: Te anexo la fórmula para sumar los valores mayores a 0 de las celdas visibles: =SUMAPRODUCTO(SUBTOTALES(9,DESREF(C9,FILA($C$10:$C$110)-FILA($C$9),,1))*($C$10:$C$110>0))

H o l a Manuel: También te agradezco que me permitas compartir este aprendizaje; me siento halagado con tus comentarios y me parece un excelente detalle de tu parte. Este tipo de comentarios son los que me motivan a seguir ayudando. 'Sal u dos...

H o l a: Supongo que tienes la instrucción application.visible = false En ese caso utiliza: Application.Windows("nombre libro").Visible = False Con lo anterior solamente ocultarás el archivo que necesitas. Tal vez tendrás que ajustar las macros de tu...

H o l a: Te anexo la macro para poner la imagen en la celda B7 y las celdas combinadas. Sub InsertarFoto() 'Por.Dante Amor Set celda = Range("B7") On Error Resume Next With ActiveSheet.Pictures.Insert(Application.GetOpenFilename)...

H o l a: Envíame tu archivo con algunas imágenes, dime cuáles imágenes son las que quieres ampliar, me muestras una imagen en particular en tamaño chico y en tamaño ampliado, para saber cómo es el resultado que esperas. Mi correo [email protected] En...

Te regreso la macro actualizada Private Sub Worksheet_Change(ByVal Target As Range) Application.ScreenUpdating = False ActiveSheet.Unprotect ''AQUI CONTRASEÑA 'Act.Por.Dante Amor If Not Application.Intersect(Target, Range("j:j")) Is Nothing Then...

H o l a: Puedes crear un Userform, en el Userform pones 2 textbox, en el primero pondrías la captura del código de barras y en el segundo el "dato". También puedes poner un commanbutton para Aceptar la captura y entonces se actualice la celda. Un...

H o l a: El evento Worksheet_Change se activa cuando modificas una celda; pero cuando una celda recibe el resultado de una fórmula, entonces el evento Worksheet_Change, no se activa. En este caso, supongo que en la celda AG2 tienes una fórmula...