AYUDA: ERROR EN MACRO DE RELLENO

[franco.ventas.26]

BUENAS TARDES A TODOS

LES COMENTO QUE ME ESTA DANDO ERRORES UNA MACRO DEL MODULO 1 / EN Sub Relleno Y Sub Relleno2

LAS 2 LAS PUSE PORQUE NECESITO QUE ME RELLENE CON UN "0" LAS CELDAS VACÍAS EN...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[franco.ventas.26]

Les pido disculpa por las mayusculas, lo hice apurado y recien me di cuenta que lo habia escrito asi.

Perdon, no volvera a pasar

 

[VBA]

Hola Franco

Confiezo que no termine de entender lo que realmente necesitas.

SI SOLO HAY DATOS EN EL RANGO D2:D10

SI SOLO HAY DATOS EN...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[franco.ventas.26]

Hola

Revise la macro que me enviaste pero no pude adaptarla a mi caso

te adjunto el archivo con ejemplos donde se ve el resultado de la macro relleno (hoja Vendido)

la idea principal es que en...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[VBA]

Para la hoja carpintero la macro seria así¿?

Sub Relleno()
Dim i%

Range("B2:B10") = ""
For i = 2 To 10
    If Range("C" & i) <> "" Or Range("E" & i) <> "" Or Range("F" & i) <> "" Then...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Macro Antonio]

Yo lo he visto así:

Sub PonerCeros()
Fila = Range("D29").End(xlUp).Row
FilaG = Range("G29").End(xlUp).Row
If FilaG > Fila Then Fila = FilaG
If Fila > 1 Then Range("B2:B" & Fila) = 0
End Sub...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[franco.ventas.26]

Buen dia

Las 2 macros que me enviaron cumplen la función, solo tiene un pequeño problema. Cuando hay datos en la columna B me los reemplaza con 0 también. necesito que si hay un dato lo deje como...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[VBA]

seria así:

Sub Relleno()
Dim i%

For i = 2 To 10
    If Range("B" & i) = "" And (Range("C" & i) <> "" Or Range("E" & i) <> "" Or Range("F" & i) <> "") Then
     Range("B" & i) = 0
    End If...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[franco.ventas.26]

Hola

si me sirvio la macro VBA. La estuve probando y por el momento no me dio el error que me daba con la que tenia anteriormente

Muchas gracias Antoni también por tomarse el tiempo de darme una...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí