Adriel Ortiz Mangia

Adriel Ortiz Mangia

Los hombres aprenden mientras enseñan.
 154K puntos  Yurimaguas, Perú @temp01 desde - visto

Actividad pública reciente

Voto positivo a la respuesta

¿Cuál es la medida si mi casa es de 20 cm de ancho y 24 de largo en metros si la escala es de 1:220?

respondió: 24 cm. de largo equivaldrian a 24 x 220 = 5280 cm = 52.80 metros reales. 20 cm. de ancho equivaldrian a 20 x 220 = 4400 cm= 44 metros reales.
Ha añadido un comentario en una respuesta de la pregunta

Macro para seleccionar parte de las ultimas 68 filas con datos y pegar la selección en otra hoja

respondió: H o l a: Te anexo la macro, cambia en la macro "Hoja1" y "Hoja2" por los nombres de tus hojas. La macro pega las últimas 68 filas de la hoja1 en la celda A1 de la hoja2. Si quieres que siempre se peguen en otra celda, por ejemplo en la D4, cambia...
Voto positivo a la respuesta

Validar datos en excel para el ingreso de letras

respondió: Selecciona la celda, en el menú Datos, Validación de datos, en Permitir selecciona Lista. En Origen escribe A, B, C, D, E (Si utilizas punto y coma como separador de listas, entonces escribe A;B;C;D;E); presiona Aceptar . 'S aludos. Dante Amor....
Voto positivo a la respuesta

Como puedo enviar un foto que lo tengo como ruta en la celda a1 de la hoja1 a un cuadro de imagen que se encuentra en la hoja3

respondió: Lo que tienes que hacer es cargar la imagen desde la ruta Suponiendo lo siguiente, en la celda B3 de la hoja1 está la ruta, en la celda B4 de la hoja1 está el nombre del archivo, por ejemplo: C:\trabajo\datos\ Image008.jpg Notas: al final de la ruta...
Voto positivo a la respuesta

Me puedes explicar With, For, Do while, excel

respondió: Puedes entrar a esta página, ahí tiene un buscador para que pongas los ciclos ( While, For, etc); y podrás ver varios ejemplos http://www.excel-avanzado.com También en la página de microsoft puedes ver la definición y ejemplos...
Ha respondido en

Cuando seleccione un item en un ComboBox me muestre un resultado en un TextBox

[Hola Te paso la macro, cambias el nombre de la hoja por el tuyo ' Valora la respuesta para finalizar saludos! Private Sub ComboBox1_Change() Set h1 = Sheets("Hoja1") ' Hoja1 Set b = h1.Columns("A").Find(ComboBox1, LookAt:=xlWhole) If Not b Is...
Ha respondido en y en 1 temas más

Macro para buscar, luego copiar y pegar campos específicos

[Hola Te paso la macro Valora la respuesta para finalizar saludos! Sub actualiza_dato() ' 'Por Adriel Ortiz Set h1 = Sheets("Registro") ' Hoja1 Set h2 = Sheets("Datos") ' Hoja2 ' dato = h1.Range("A2") 'Dato a buscar ' Set b =...
Voto positivo a la respuesta

Rango dinámico no permite cargar datos a listbox

respondió: Ya probé tu código con datos y sin datos; y no me envía error. ¿Qué mensaje de error te aparece? ¿Y en qué línea se detiene la macro?
Voto positivo a la respuesta

Como utilizar With end with con filtros

respondió: Esta sería una forma: Sub Copiar() 'Act.Por.Dante Amor Application.ScreenUpdating = False Set h1 = Sheets("Materiales") Set h2 = Sheets("Semanal") With h1 If .AutoFilterMode Then .AutoFilterMode = False .Range("$A:$I").AutoFilter Field:=9,...
Voto positivo a la respuesta

Excel VBA manpular objetos como parte de una colección.

respondió: Te anexo el código Private Sub UserForm_Click() Dim botones As Collection Set botones = New Collection Dim n As Integer Botones. Add "CommandButton1" Botones. Add "CommandButton2" Botones. Add "CommandButton3" Botones. Add "CommandButton4" Botones....
Voto positivo a la respuesta

¿Cómo comparar una celda contra un grupo de celdas en un ciclo de "Do While"?

respondió: Te anexo 2 ejemplos de ciclos Sub Ciclo1() 'Por.Dante Amor Set r = Range("D23:D26") 'se establece en el objeto r el rango de celdas ini = r.Cells(1, 1).Row fin = r.Rows.Count + ini - 1 col = r.Cells(1, 1).Column existe = False i = ini Do While i <=...
Voto positivo a la respuesta

Copia muchos archivos a variadas carpetas según el nombre del archivo a copia y carpeta destino

respondió: Tengo las siguientes dudas: ¿Todos los archivos inician con 4 dígitos? Las carpetas deben iniciar con 4 dígitos, en tu ejemplo pusiste “carpeta donde se debe copiar: 3415-monitor”, ¿pero esto significa que habrá una carpeta por archivo?, o en una...
Voto positivo a la respuesta

Proteger mi proyecto de las copias

respondió: Es imposible evitar que se copien las macros... Cuando copias un libro Excel que contiene macros, se copia todo lo que este contiene.- Sería fácil evitar que se vean (Protegiendo el código VBA), pero es imposible evitar que se ejecuten las macros o...
Voto positivo a la respuesta

Macro para borrar contenido si cumple una condición y copiar datos de celda siguiente

respondió: Te anexo la macro Sub Borrar_Contenido() 'Por.Dante Amor For i = 2 To Range("A" & Rows.Count).End(xlUp).Row If UCase(Cells(i, "F")) = "X" Then Cells(i, "B") = Cells(i, "C") Cells(i, "C") = Cells(i, "D") Cells(i, "D") = "" End If Next MsgBox "Fin" End...
Voto positivo a la respuesta

Extraer pago de Comisiones en una hoja de excel

respondió: En realidad tu pregunta no es referente al tema de Excel... Y desafortunadamente con los datos que has dado no se puede calcular mucho Verás, aunque me saldré completamente del tema, las comisiones suelen ser un porcentaje de lo vendido y es fijado...
Ha respondido en y en 2 temas más

Alerta en VBA al abrir Excel

[Hola Te paso la macro, cambia el nombre de la hoja por el tuyo ' Valora la respuesta para finalizar saludos! Private Sub Workbook_Open() '**Por Adriel Ortiz ' Set h1 = Sheets("Hoja1") ' For i = 2 To h1.Range("A" & Rows.Count).End(xlUp).Row If...

Trabajo

  • Monseñor Elías Olázar
    Asistente Administrativo , 2015 - actualidad