calvuch

eso lo cubre la funcion =buscarV()

el presente macro te enseña un mensaje con el texto "visible" si es que la hoja2 del libro esta visible ( no oculta), de lo contrario indica "oculta" Sub visible() If Sheets(2).visible Then MsgBox "visible" Else MsgBox...

Acá el macro: Sub repetir() Dim i As Integer Dim e As Integer Dim t As Integer e = 1 t = 6 If Application.WorksheetFunction.CountA(Range("A:A")) = 0 Then Exit Sub If Application.WorksheetFunction.CountA(Range("A:A")) > 10900 Then...

[a1] = Textbox1 & " " & Textbox2 & " " & Textbox3 Así le pasas el contenido de los tex a la celda A1

Orale! veamos la idea es editar el mes , si escribes : "Enero" deseas que en otra hoja diga "Febrero" ? Se puede pero con una función personalizada y esta debe tener como argumento el ultimo valor editado, es decir si pusiste en...

Ok. ¿Los nombres de los proveedores están en alguna celda especifica de cada hoja o son el nombre de la hoja en cuestión?. En todo caso lo que puedes hacer es en la hoja en que deseas poner la lista desplegable, escribe cada nombre de proveedor y ese...

Bueno tal vez, lo siguiente Abre los dos libros En celda a1 del libro1 pones esto =+Hoja2!A1 Esto te traerá la info de la celda a1 del libro2 ( aunque este este cerrado) Ahora si la deseas pasar a un label, seria label1.caption=[a1] Tu decides con...

Ok Si en a1 tienes tu numero 123123131789 y deseas que el ultimo sea 7 quedando así: 123123131787 Pues en b1 pones esto: =EXTRAE(A1;1;LARGO(A1)-1)&7 No olvides CERRAR a pregunta

En un modulo nuevo usa este macro Option Explicit Dim t As Long Sub Libro() Range("F2").Select [f2] = t t = t + 1 End Sub Así siempre utilizas el ultimo valor asignado a la variable T que es Global para todo el proyecto ( Libro)

Veo que estas utilizando un objeto de sistema para obtener los archivos xls desde una unidad diferente de unidad predeterminada (c:\) Yo lo hago así y funciona bien: Sub recorre_directorio() 'recorrer un directorio Dim m As String Dim i As Integer...