Mirma Magdiel Rojas Pacoricona

Dante Amor respondió: Te anexo la macro En la "Hoja1" pon tus datos, el resultado quedará en la "Hoja2" Si quieres otros nombres de hoja, cambia en la macro "Hoja1" y "Hoja2" por los nombres de tus hojas. Sub Transponer() 'Por.Dante Amor Application.ScreenUpdating = False...

Dante Amor respondió: El problema es porque el dato a buscar no se encuentra. Para controlar el error al buscar un dato, podrías utilizar el método Find, te anexo el ejemplo, en el objeto b estoy estableciendo el resultado de la búsqueda, si es encontrado, entonces en el...

Adriel Ortiz Mangia respondió: [Hola ¿Puedes poner la macro para modificar?

Adriel Ortiz Mangia respondió: [Hola El método Find puede buscar el valor con una coincidencia exacta o parcial con el valor de la celda.

Dante Amor respondió: Además del detalle del Count Te anexo algunas recomendaciones Private Sub CommandButtonbuscar_Click() items = Range("DATOS").Rows.Count For i = 3 To items If LCase(Cells(i, "B").Value) Like "*" & LCase(TextBoxbuscar.Value) & "*" Or _ LCase(Cells(i,...

Dante Amor respondió: Mejor te cambio la macro. En la macro reemplaza Image1 por el nombre de tu control donde quieres insertar la imagen. Private Sub CommandButtonImagen_Click() 'Por.Dante Amor With Application.FileDialog(msoFileDialogFilePicker) .Title = "Selecciona...

Aneudys Martinez respondió: Te esta pidiendo que definas la variable I estos lo puede corregir así Dim i for I = 2 to 1000 ...