alexoigres
Board Regular
- Joined
- Dec 2, 2005
- Messages
- 184
Hola a todos
Tengo un problema con un macro que quiero crear y nadie me ha podido ayudar. No tengo mucho experiencia en Macros por lo cual les pido sean un poco de pacientes con mis preguntas. A lo mejor y es algo simple pero pues para mi es algo que no he podido lograr y muchas personas en el foro de ingles tampoco han logrado hacerlo...
Mi caso es:
Tengo un archivo en excel con un macro ya corriendo a la perfieccion, pero quiero agregar un modulo nuevo para que tener dos macros en el mismo archivo de excel....
Lo que quiero es que el macro pueda distinguir una celda y si la celda concuerda con la funcion entonces borre alguna informacion....
Este es mi intento de Codigo:
******************
Lo que quiero es que si tengo RJ en la columna C llame a RPORJ, para que borre el codigo "02L" de la columna AK.
Se que suena facil pero este es sola la idea ya que tengo RT,2T, RV etc y cada uno de ellos tienen como 1000 codigos que debo borrar.
Tengo un archivo nuevo cada semana por lo que me gustaria crear un macro solo para eliminarlos en un instante y asi ahorrarme mucho trabajo
Muchas Gracias por la ayuda
SG
Tengo un problema con un macro que quiero crear y nadie me ha podido ayudar. No tengo mucho experiencia en Macros por lo cual les pido sean un poco de pacientes con mis preguntas. A lo mejor y es algo simple pero pues para mi es algo que no he podido lograr y muchas personas en el foro de ingles tampoco han logrado hacerlo...
Mi caso es:
Tengo un archivo en excel con un macro ya corriendo a la perfieccion, pero quiero agregar un modulo nuevo para que tener dos macros en el mismo archivo de excel....
Lo que quiero es que el macro pueda distinguir una celda y si la celda concuerda con la funcion entonces borre alguna informacion....
Este es mi intento de Codigo:
Code:
Option Explicit
Dim bookCode As String
Sub FormatRPO()
Dim LastRow As Long
Dim iRow As Long
LastRow = Range("C65536").End(xlUp).Row
For iRow = 2 To LastRow
bookCode = Cells(iRow, "C")
GENNPO
Next iRow
msgbox "Format RPO Complete"
End Sub
Private Sub GENNPO()
If (InStr(bookCode, "RJ") <> 0) Then
Call RPORJ
End If
End Sub
Private Sub RPORJ()
Call RPO1
End Sub
Private Sub RPO1()
With Columns("AK")
.Replace What:="02L", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows
End With
End SubLo que quiero es que si tengo RJ en la columna C llame a RPORJ, para que borre el codigo "02L" de la columna AK.
Se que suena facil pero este es sola la idea ya que tengo RT,2T, RV etc y cada uno de ellos tienen como 1000 codigos que debo borrar.
Tengo un archivo nuevo cada semana por lo que me gustaria crear un macro solo para eliminarlos en un instante y asi ahorrarme mucho trabajo
Muchas Gracias por la ayuda
SG
Last edited by a moderator:
