Tor Cheer

Ponga un punto de interrupción en el evento clic del combo box y vaya paso a paso quizá de esa manera pueda ver a donde se va el proceso y porque expone la hoja.

Con esta macro exporta todos los datos de la columna C. Sub ExportarTxt() ruta = "C:\Users\Victorm\Desktop\test.txt" lastrow = Cells(Rows.Count, 1).End(xlUp).Row Open ruta For Output As #1 For i = 1 To lastrow Print #1, Cells(i, 3).Value Next i Close...

Puede subir su código y una imagen de sus datos para tratar de ayudarle

Si comparte datos de sus información, pantallas y una explicación un poco más a detalle para poder ayudarle

Puede compartir copia de su archivo para entender mejor y poder ayudarle

No se si entendí bien lo que quiere hacer, en un form tengo un login para abrir un formulario principal. Y tengo el siguiente código, quizá pueda adaptarlo para abrir sus archivos. If Trim(txtuser.Text) = "Admin" And (txtPass.Text) = "admin123" Or...

La solución que se me ocurre es que ponga un valor en la hoja1 por ejemplo en la celda C1 el valor del zoom deseado y modificar la ultima linea de su código en todas las hojas haciendo referencia la esta celda, a manera de que cuando ese valor cambie...

Intente con el siguiente código en el evento exir del primer campo de texto, actualiza al nombre de sus campos. Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean) TextBox2.Text = TextBox1.Text End Sub

No entendí muy bien el resultado que quiere, si quiere contar cuantas frutas hay en cada contenedor esta fórmula le puede funcionar, sustituye la coma (,) por punto y coma (;) en la fórmula. =CONTAR.SI.CONJUNTO($B$2:$B$10,F$1,$A$2:$A$10,$E2)

Con este ejemplo puede pasar de registro en registro, espero le sirva, cualquier cosa comenta, saludos Private Sub cmdSiguiente_Click() uf = Sheets("Hoja13").Range("A" & Rows.Count).End(xlUp).Row Posicion = ActiveCell.Address uFila = uf If...