tavopz

No entendí muy bien tu pregunta. Si la idea es proteger la información de tu libro para evitar que sea modificada por error, pienso que lo mejor es proteger el libro, ingresando por el menú Herramientas / Proteger / Proteger hoja o libro.

Pienso que este podría servirte. http://www.monografias.com/trabajos29/fundamentos-matematicos/fundamentos-matematicos.shtml

Quizás con algo como: Private Sub TextBox1_AfterUpdate() Dim w As Worksheet Dim c As Range Set w = Sheets("Hoja2") For Each c In w.Range("A1:A100") If c.Value = TextBox1.Text Then TextBox2.Text = w.Cells(c.Row, 2) TextBox3.Text = w.Cells(c.Row, 3)...

Lo que se me ocurre hacer es usar la función DIRECCIÓN o ADDRESS (en inglés), con la que puedes sacar el nombre de la hoja desde una celda, algo así: =ADDRESS(1;1;;;A1)&":"&ADDRESS(20;5;;;) Te devolverá como resultado: 1!$A$1:$E$20 Por lo tanto, la...

Te envío un ejemplo de una función que hace lo que necesitas. http://es.geocities.com/webtavopz/Files/macro_buscaenhojas.xls Si crees que te sirve, puedes ingresar al código, dando clic derecho sobre la pestaña de la hoja y seleccionando "Ver...

Si no hay espacios entre las filas (es decir, no hay filas sin datos), puedes usar el siguiente método para obtener la última filla con información: Range("A1").End(xlDown).Row En el caso del ejemplo, lo que haría es a partir de la celda A1 (debes...

Debería ser con un código como este: x = ThisWorkbook.Sheets.Count For i = 1 To x ComboBox1.AddItem (Sheets(i).Name) Next i Desde luego, esta es una forma de hacerlo, puedes encontrar otras.

El uso de Select Case o If, depende en realidad de la necesidad que tengas, para tu caso ambos podrían usarse pero pienso que con algunos IF enlazados será suficiente. La forma de manejarlo es algo como esto: x = Range("A4").Value If x <= 2 Then...

Harías una macro como esta: Sub copia() FileCopy "c:\temp\nombre.ext", "f:\informacion\nombre.ext" End Sub

Pienso que una macro para esto podría ser como sigue: Sub imprimir() Dim c As Range For Each c In Range("Imprimir") Sheets(c.Value).Select ActiveSheet.PrintOut Copies:=1, Collate:=True Next c End Sub Para que te funcione, deberías crear un rango en...