cesar corado

cesar corado

 Guatemala @cesarcorado desde - visto
Preguntar

Actividad pública reciente

Ha valorado "Excelente" la respuesta

Macro para agregar mas de 10 columnas en listbox

respondió: [Hola preparé la macro para 16 columnas ya usted lo ajustas a tu necesidad Private Sub Entradas() Set sh = Sheets("Hoja1") ' nombre de hoja Dim i As Long, j As Long With ListBox1 .ColumnCount = 16 ' cant. de columnas .List = Range("A1:P1").Value '...
Ha valorado "Excelente" la respuesta

Macro que selecciona item de listbox y lo muestra en userform para luego poder modificarlo

respondió: ¿Y cómo seleccionas la celda en la hoja? ¿Por lo que veo tienes varios registros con "Toallas de mano" pero cómo sabes cuál es el que tienes en el listbox? Cómo cargas los datos en el listbox, ¿tienes algún filtro para cargar los datos o simplemente...
Ha valorado "Excelente" la respuesta

Macro para desglosar por cuatrimestre

respondió: Según la imagen los resultados empiezan en C3, J3 y A3. Prueba la siguiente: Private Sub CommandButton1_Click() 'Por Dante Amor 'DECLARACIÓN de variables Dim a As Variant, b As Variant, c1 As Variant, c2 As Variant, c3 As Variant Dim dic As Object, i...
Ha valorado "Excelente" la respuesta

Macro para desglosar por mes

respondió: Te respondí la pregunta. Deberías ser un poco más paciente, tal vez alguien más te pueda ayudar, pero está del otra lado del mundo. Va nuevamente la macro para que la consideres. Private Sub CommandButton1_Click() 'Por Dante Amor 'DECLARACIÓN de...
Ha valorado "Excelente" la respuesta

Macro para filtrar por mes

respondió: Estos ejemplos https://macrosenexcel.com/como-buscar-datos-entre-rango-de-fechas https://macrosenexcel.com/como-buscar-datos-por-cliente-entre https://youtu.be/R0C9-sGCACM https://youtu.be/D3huP3K57KE https://youtu.be/MvFe2ynAa-Y aca tienes mas con...
Ha valorado "Excelente" la respuesta

Macro para quitar repetidos de combobox

respondió: [Hola yo uso esta macro, cambia el nombre del combobox y la columna a filtrar Private Sub CommandButton1_Click() 'Por.DAM ComboBox1.Clear uf = Sheets("Producción").Range("F" & Rows.Count).End(xlUp).Row For i = 10 To uf AddItem ComboBox1,...
Ha cambiado su perfil.
  • Ha cambiado su foto.