Contador en visual basic con excel
Tengo un código
Pero no lo entiendo
Es de reemplazos con un contador
Aquí te mando el código
For Each c In Selection
If Mid(c.FormulaLocal, 1, 11) = "=+[rp" & Format(fecha1, "ddmmyy") Then
c.Replace What:="[rp" & Format(fecha1, "ddmmyy"), Replacement:="[rp" & Format(fecha2, "ddmmyy"), _
lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
contador = contador + 1
End If
Next
MsgBox "Cambios realizados:" & contador
End Sub
Estoy trabajando con una macro
Antes de remplazar tengo que seleccionar la columna
que deseo actualizar o remplazar
Me pide 2 fechas
La primera la que deseo remplazar
La segunda por la cual debo remplazar
Y no le entiendo a la parte de if mid(c. Formulacola, 1,11
espero me puedas ayudar
Pero no lo entiendo
Es de reemplazos con un contador
Aquí te mando el código
For Each c In Selection
If Mid(c.FormulaLocal, 1, 11) = "=+[rp" & Format(fecha1, "ddmmyy") Then
c.Replace What:="[rp" & Format(fecha1, "ddmmyy"), Replacement:="[rp" & Format(fecha2, "ddmmyy"), _
lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
contador = contador + 1
End If
Next
MsgBox "Cambios realizados:" & contador
End Sub
Estoy trabajando con una macro
Antes de remplazar tengo que seleccionar la columna
que deseo actualizar o remplazar
Me pide 2 fechas
La primera la que deseo remplazar
La segunda por la cual debo remplazar
Y no le entiendo a la parte de if mid(c. Formulacola, 1,11
espero me puedas ayudar
7 Respuestas
Respuesta de Carlo Julio Castillo Vivas
1
Puede reemplazar las celdas con un lazo de repita (Do ... loop until) y dentro de ese lazo puede colocar el contador de las celdas que se están reemplazando, siempre lo hago de esa manera, es muy efectivo, cjcv2009
Respuesta de profetop
1
Batmancito,
Tengo el archivo de respuesta, ¿dónde te lo envío?
Tengo el archivo de respuesta, ¿dónde te lo envío?
De antemano gracia
Por tu preocupación y ayuda
Mi correo es
[email protected]
De antemano gracias por tu ayuda
Saludos cordialesss
Por tu preocupación y ayuda
Mi correo es
[email protected]
De antemano gracias por tu ayuda
Saludos cordialesss
Hola experto
El correo es
batman _ jsa @hotmail.com
Es todo junto
Más que la j parece i y se puede confundir
Gracias por ayuda
Saludos cordialessssss
El correo es
batman _ jsa @hotmail.com
Es todo junto
Más que la j parece i y se puede confundir
Gracias por ayuda
Saludos cordialessssss
Te envié un mail, ¿te llegó?
Hola experto
Pues todavía no me ha llegado
Anda lento mi cuenta de hotmail
Ahorita te aviso si llega
Gracias por tu apoyo
Pues todavía no me ha llegado
Anda lento mi cuenta de hotmail
Ahorita te aviso si llega
Gracias por tu apoyo
OK
Hola experto
Excelente respuesta
Tratare de ajustarlo al mio
Gracias por tu tiempo
comprension y dedicacion
me servira de mucho tu ejemplo
Te mande mi hoja para que la cheques
Y me apoyes por alguna duda
milllll gracias
Genial respuesta
Excelente
Saludos cordialesssssss
Excelente respuesta
Tratare de ajustarlo al mio
Gracias por tu tiempo
comprension y dedicacion
me servira de mucho tu ejemplo
Te mande mi hoja para que la cheques
Y me apoyes por alguna duda
milllll gracias
Genial respuesta
Excelente
Saludos cordialesssssss
Respuesta de jclaveria
1
Siento la tardanza pero he andado liado
Ponlo de esta otra forma y verás como si te lo hace
For Each c In Selection
buscar = Format(fecha1, "ddmmyy")
If InStr(4, c.FormulaLocal, buscar, 1) <> 0 Then
c.Replace What:="[rp" & Format(fecha1, "ddmmyy"), Replacement:="[rp" & Format(fecha2, "ddmmyy"), _
lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
contador = contador + 1
End If
Next
Ponlo de esta otra forma y verás como si te lo hace
For Each c In Selection
buscar = Format(fecha1, "ddmmyy")
If InStr(4, c.FormulaLocal, buscar, 1) <> 0 Then
c.Replace What:="[rp" & Format(fecha1, "ddmmyy"), Replacement:="[rp" & Format(fecha2, "ddmmyy"), _
lookat:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False
contador = contador + 1
End If
Next
Hola experto
Si me hace lo que deseo
Muchas gracias
Por preocuparte
Excelente respuesta
Mil gracias
Por ayudarme
Saludos cordiales
Excelente respuesta
Cualquier duda que tenga
No dudare en preguntarte
Mil gracias
Saludos
Si me hace lo que deseo
Muchas gracias
Por preocuparte
Excelente respuesta
Mil gracias
Por ayudarme
Saludos cordiales
Excelente respuesta
Cualquier duda que tenga
No dudare en preguntarte
Mil gracias
Saludos
Respuesta de emperador20
1
La función mid sirve para sacar texto de una cadena
por ejemplo mid(leandro, 1,3) queda lea porque le pedí que empiece de la posición 1 hasta la 3
ahí esta diciendo que del texto de la formulalocal desde la posición 1 a la 11 es igual a la fecha1 formateada y después viene el reemplazo
saludos, por favor no te olvides de cerrar la pregunta
lea
por ejemplo mid(leandro, 1,3) queda lea porque le pedí que empiece de la posición 1 hasta la 3
ahí esta diciendo que del texto de la formulalocal desde la posición 1 a la 11 es igual a la fecha1 formateada y después viene el reemplazo
saludos, por favor no te olvides de cerrar la pregunta
lea
Hola
Mira lo que pasa es que siento que el código esta bien pero no lo realiza porque noc donde colocarlo.
Si me puedes proporcionar tu correo para que te mande mi archivo y te pueda mandar mi macro para que lo cheques y me digas en donde esta mi error.
Te lo agradezco gracias
Mira lo que pasa es que siento que el código esta bien pero no lo realiza porque noc donde colocarlo.
Si me puedes proporcionar tu correo para que te mande mi archivo y te pueda mandar mi macro para que lo cheques y me digas en donde esta mi error.
Te lo agradezco gracias
No, lo lamento estoy en el trabajo y no puedo ponerme a ver código porque no entiendo que estas haciendo.
Puedo ayudarte a ver funciones y demás dudas
Puedo ayudarte a ver funciones y demás dudas
Respuesta
1
Es como al Función extrae
Es Igual aloque haces en excel
Suponiendo que en a1 tiene la palabra "Clasificacion"
=Extrae(a1,1,5)
Le indicas que te extraiga de la celda a1 a partir del primer carácter los 5 siguientes el resultado sera "Clasi"
Es lo mismo trasladado a Visual Basic
Visita
www.expertosmacrosexcel.es.tl
Encontraras más sobre Mid
Es Igual aloque haces en excel
Suponiendo que en a1 tiene la palabra "Clasificacion"
=Extrae(a1,1,5)
Le indicas que te extraiga de la celda a1 a partir del primer carácter los 5 siguientes el resultado sera "Clasi"
Es lo mismo trasladado a Visual Basic
Visita
www.expertosmacrosexcel.es.tl
Encontraras más sobre Mid
Hola experto
Gracias por la página la voy a checar
estem
Tienes correo
para que te pueda pasar mi libro de excel
y lo cheques
es que pues hay un código que no entiendo
if Mid(c.FormulaLocal, 1, 11) = "=+[rp" & Format(fecha1, "ddmmyy") Then
donde dice fórmula local
no c de donde lo tomo
es que ese código me lo pasaron
espero me puedas ayudar
gracias
saludos cordialessss
Gracias por la página la voy a checar
estem
Tienes correo
para que te pueda pasar mi libro de excel
y lo cheques
es que pues hay un código que no entiendo
if Mid(c.FormulaLocal, 1, 11) = "=+[rp" & Format(fecha1, "ddmmyy") Then
donde dice fórmula local
no c de donde lo tomo
es que ese código me lo pasaron
espero me puedas ayudar
gracias
saludos cordialessss
Foremula Local significa la fórmula que tienes en determinada celda en este caso es
=Extrae
=Extrae
aa okis
Es que ya lo intente varias veces
Y pues no c donde se tomo ese formulalocal
Y siento que ahí es la falla
Lo tuve checando en la mañana
Y no me sale je je je
Lo seguiré intentando
Gracias por tu respuesta
Estamos en contacto
Gracias
Es que ya lo intente varias veces
Y pues no c donde se tomo ese formulalocal
Y siento que ahí es la falla
Lo tuve checando en la mañana
Y no me sale je je je
Lo seguiré intentando
Gracias por tu respuesta
Estamos en contacto
Gracias
Respuesta de rito01
1
Depende mucho de los criterios que quieras tomar... podemos hacer algo standard... pero pienso yo que un manual de vb te sera de muchísima más ayuda...
Si lo necesitas contáctame a mi correo para mandártelo
[email protected]
Si lo necesitas contáctame a mi correo para mandártelo
[email protected]
Respuesta de pixelen
1
¿Necesito más detalles para poder entender tu requerimiento... un contador de que?, ¿Para qué? Que resultado obtienes... etc...