Francisco Puleo

Abraham Valencia respondió: [Hola Yo sugiero que coloques tu archivo en algún "Drive" (OneDrive, Google Drive, DropBox, etc.) y que compartas por aquí el enlace, así nadie tendrá que hacer público su correo, que es lo que probablemente muchos prefieren (me incluyo). Abraham Valencia

Anónimo respondió: Podés hacer que primero se fije si la hoja está visible, algo más o menos así... Sub Buscar_Nombres() Set h1 = Sheets("MAESTRO") 'hoja de nombres col = "D" 'columna de nombres h1.Columns(col).Interior.ColorIndex = xlNone For i = 2 To h1.Range(col &...

Dante Amor respondió: Te anexo la macro. Cambia en la macro "Hoja1" y "A" por tus datos. Sub Buscar_Nombres() 'Por Dante Amor ' Set h1 = Sheets("Hoja1") 'hoja de nombres col = "A" 'columna de nombres h1.Columns(col).Interior.ColorIndex = xlNone For i = 2 To h1.Range(col &...

Dante Amor respondió: Puedes utilizar la herramienta de excel para obtener Subtotales. Realiza lo siguiente: - Selecciona tus datos. - Entra al Menú Datos - En la ficha Esquema presiona el botón Subtotales - En el campo Para cada cambio en: selecciona Factura - En el...

Elsa Matilde respondió: Por ejemplo: [C3]= Round(TextBox11) Range("A5")=Round(TextBox11)

Dante Amor respondió: Utiliza lo siguiente: TextBox5.Text = Sheets("1").Cells(ComboBox2.ListIndex + 3, 6).Value TextBox5.BackColor = Sheets("1").Cells(ComboBox2.ListIndex + 3, 6).Interior.Color

Ignacio Iñiguez respondió: Para el caso de los dos primeros y suponiendo que tus códigos están a partir de A2 y las cantidades a partir de B2: =SUMA((IZQUIERDA(A2:A5,4)="5210")*B2:B5) para los otros dos reemplaza 5210 por 5211 La formula es matricial (ctrl+shift+enter)