Jump to content

richardqueve25

Members
  • Content Count

    6
  • Joined

  • Last visited

About richardqueve25

  • Rank
    Newbie
  • Birthday 10/10/1989

Converted

  • Campos
    ,
  1. [uSER=163374]@Diego9019[/uSER] gracias hermano! excelente eso era lo que estaba buscando muchas gracias amigo es excelente. algun dia quisiera aprender tanto como ustedes y poder ayudar a otros.
  2. hola como estan saludos!.. excelente foro de verdad que muy buenas ideas aca de verdad aplaudo esta iniciativa gracias de antemano.por favor tengo un archivo el cual tiene unos datos entonces bueno es largo y no puede tener duplicado el dato de la factura columna (H)entonces e visto varia ideas pero realmente no se como realizarlo. ayudenme gracias. les estare agradecido por cualquier colaboracion que puedan brindarme. libro ejemplo.xls
  3. excelnte hermano gracias me ayudo perfectamente max! muchas racias por tu propuesta y aporte
  4. buenos dias! solicito la ayuda de ustedes para buscar solucion a este problema tengo un codigo macro pero cuando ejecuto no me hace nada! quiero borrar las filas en la cual la columna (A)cumpla con un criterio (HECHO) y me borre esa fila el problema es que cuando lo ejecuto varias veces ya no hace nada el macro. tengo dos codigos pero uno no me hace nada y el otro. cuando cambio el rango de la matriz borra todo o sino borra el hecho pero coloca las otras cosas en diferentes celdas. Sub Button3_Click() 'Despues eliminamos las filas cuya columna G tenga contenido Dim i As Integer, nfilas As Integer nfilas = ActiveSheet.Cells(1, 1).CurrentRegion.Rows.Count qCol = InputBox("Columna del criterio") qCrit = InputBox("Criterio") For i = nfilas To 2 Step -1 Cells(i, qCol).Select If Cells(i, qCol) = qCrit Then ActiveCell.EntireRow.Select Selection.Delete End If Next i End Sub y tengo este otro pero nada ninguno me sirve para lo que quiero ps quiero es me borre las cosas que digan HECHO me elimine la fila y listo. Sub Button3_Click() ' This will remove all DONE items in the named range todo_list ' and re arrange the list0 Dim tmpTodoList(1 To 100), tmpTodoStatus(1 To 100) As String Dim i, cntr, copyThis cntr = 1 i = 1 copyThis = False For Each cell In Range("hecho") If cntr Mod 2 = 1 Then If cell.Value = "" Or cell.Value = "NO REALIZADO" Then 'tmpTodoStatus(i) = cell.Value copyThis = True End If Else If copyThis Then ' tmpTodoList(i) = cell.Value i = i + 1 copyThis = False End If End If cntr = cntr + 1 cell.Value = "" Next cell i = 1 cntr = 1 For Each cell In Range("hecho") If cntr Mod 2 = 1 Then ' cell.Value = tmpTodoStatus(i) Else ' cell.Value = tmpTodoList(i) i = i + 1 End If cntr = cntr + 1 Next cell End Sub libro excelent.rar
  5. quien puede ayudarme con esta ps tengo una lista de cosas y quiero borrar segun condicion entonces tengo mi codigo Sub Button3_Click() Dim i As Integer, nfilas As Integer nfilas = ActiveSheet.Cells(1, 1).CurrentRegion.Rows.Count qCol = InputBox("Columna del criterio") qCrit = InputBox("Criterio") qCrit = CDbl(InputBox(“Criterio”)) For i = nfilas To 2 Step 1 Cells(i, qCol).Select If Cells(i, qCol) = qCrit Then ActiveCell.EntireRow.Select Selection.Delete End If Next i End Sub pero no me borra nada ayuda.
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png