Modificación de código vba de excel existente y unión con código vba solicitado

Expertos

Mi inquietud son la siguiente tengo un código que renombra varias hojas de un libro de excel cuya estructura está basada en un rango donde la designación empieza en la primera hoja y quiero modificarla y que inicie en la hoja consecutiva la ejecución y al mismo tiempo se oculte la hoja donde se encuentra la condición indicada en la segunda línea del escrito.

Espero que ustedes me puedan ayudar con mis inquietudes cualquier inconveniente con la petición me lo pueden hacérmelo llegar por aquí.

1 respuesta

Respuesta
1

Puedes poner tu código para revisarlo

Estimado Señor Dante aquí envío el código nombrado.

Sub ExtraerNombreDeHojas() 'Macro para extraer los nombres de las hojas del archivo Dim i As Long Dim BuscarHoja As Boolean On Error Resume Next BuscarHoja = (Worksheets("HojaNombres").Name <> "") If BuscarHoja = False Then Sheets.Add before:=Sheets(1) End If ActiveSheet.Name = "HojaNombres" Sheets("HojaNombres").Activate Sheets("HojaNombres").Cells.Select Selection.ClearContents For i = 1 To Sheets.Count Sheets("HojaNombres").Range("A" & i).Value = Sheets(i).Name 'Nombre de la hoja Next i End Sub Sub EscribirDatos() 'Copia los valores de la hoja Datos y los pega en varias hojas deseadas Dim i As Long Dim BuscarHoja As Boolean Dim nombreHoja() As String Dim valor1() As String Dim valor2() As String 'Dim valor3() As String 'se puede adicionar otro campo a escribir con este vector On Error Resume Next BuscarHoja = (Worksheets("Datos").Name <> "") If BuscarHoja = False Then Sheets.Add before:=Sheets(1) End If ActiveSheet.Name = "Datos" Sheets("Datos").Activate ActiveSheet.Range("A2").Activate i = 0 Do While Not IsEmpty(ActiveCell) i = i + 1 ActiveCell.Offset(1, 0).Activate Loop ReDim nombreHoja(i) ReDim valor1(i) ReDim valor2(i) 'ReDim valor3(i)'Puedes adicionar mas vectores Sheets("Datos").Activate ActiveSheet.Range("A2").Activate i = 0 Do While Not IsEmpty(ActiveCell) i = i + 1 nombreHoja(i) = ActiveCell.Value valor1(i) = ActiveCell.Offset(0, 1).Value valor2(i) = ActiveCell.Offset(0, 2).Value 'valor3(i) = ActiveCell.Offset(0, 3).Value 'Puedes adicionar mas vectores ActiveCell.Offset(1, 0).Activate Loop For j = 1 To i Step 1 Sheets(nombreHoja(j)).Activate ActiveSheet.Range("A2") = valor1(j) ActiveSheet.Range("b2") = valor2(j) 'ActiveSheet.Range("c2") = valor3(j) 'Puedes adicionar mas vectores Next j End Sub

No se pegó bien el código, no está línea por línea.

Puedes intentar pegarlo en un archivo de texto y después pegarlo aquí.

O intenta pegar el código, utilizando el icono "Insertar código fuente"

O envíame tu archivo y me explicas con un ejemplo lo que tienes.

Mi correo [email protected]

En el asunto del correo escribe tu nombre de usuario “Osvaldo Luis Vildoso”

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Macro excel, comparación de columnas

Te cuento, tengo 3 columnas en un libro: ----------A------------ B----------- C 1----- Oscar--------- si----------- si 2---- Gabriel--------- si---------- no 3---- Hector ---------no--------- no 4----- Nancy ---------si----------- si 5 -----Yuriko...
2 respuestas

Llenas una matriz usando otra sin repetir datos

Tengo un arreglo con valores 8|8|8|8|9|8|8|1|1 Por ejemplo Ahora lo que necesito es guardar los valores en otro arreglo pero sin repetirse Es decir que quede 8|9|1 El primer arreglo es dinámico por lo que el segundo también puede variar no se como...
1 respuesta

Macro que copia celdas sin repetir los datos copiados

Hará cosa de dos meses os consultaba una duda sobre una macro que me copiase celdas de una hoja a otra en determinadas columnas (la pregunta era: "Crear macro que copie celdas si cumplen una condición".) Me funcionó a la perfección, pero usándola me...
1 respuesta

Exportar datos de un listbox a txt

Que bien chilla la niña Compañero aquí de nuevo, creo que lo mio dejo de ser duda por saber nada Estoy usando un código para exportar los datos de mi listbox a un txt, estoy atorado en lo principal que es cargar la info dim linea as string dim arch...
1 respuesta

Corregir macro para que pegue los datos modificados en base de datos.

He tratado de buscarle el simple error a esta macro pero solo con el apoyo de expertos lograré la solución. Es una agenda de nombres y datos generales por municipio; uno en cada hoja. Con el CmdBtn1, ingresa perfectamente los datos y ordena por...
1 respuesta

Utilizar Find en macros o procedimiento similar

Necesitaría que me ayudarais a buscar los distintos nombres de una persona, copiar toda la fila donde aparece, pegarla en otra hoja. Esto con cada nombre que se encuentre igual al indicado por nosotros. Yo lo que he intentado son dos formas pero...
1 respuesta

Macro que busque los datos en otra hoja(mismo libro) y copie en otra.

Es urgente alguien me puede ayudar estoy elaborando una bse de datos en excel(2007). 1-El libro contiene lo siguiente: 2 hojas (consulta, base de datos). Quisiera insertar un TextBox en el cual ingresar los datos a buscar, 2 combobox (1. La lista de...
1 respuesta

Como repetir la misma macro pero en diferentes filas y columnas ?

Sub Actualizar() ' sólo sirve para la fila 7 - Reemplazada por fórmula Tengo la siguiente macro pero necesito que me lo haga hasta de la BX41 Hasta la BX41 lo mismo que BY7 hasta BY41 y lo mismo con BZ7 hasta BZ41. Dim signo As String Dim Valor1 As...
2 respuestas

Renombrar hojas de un libro excel con macro

He intentado crear una macro que renombre las hojas de un libro, asignándole una secuencia numérica, por ej. Que identifique la 1er. Hoja del libro (que tendrá un nombre cualquiera) y le asigne el No. 1 y a la siguiente el No. 2, etc. No quiero que...
1 respuesta

Hacer Formulario entrada para copiar filas a Hoja2

Voy a intentar explicar mi problema a ver si me podéis ayudar, gracias . Tengo un libro con 2 hojas, en la primera tengo los datos con los que quiero trabajar que es desde la fila A hasta BL1000, y la segunda es para que me copie los datos del...
1 respuesta