UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo

No se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

Invitado


Invitado
Buenos días, FENÓMENOS, por todo lo que me habéis ayudado.
Estoy haciendo una cosa que me haría mucha falta y no logro el dar con la tecla, esto es en :
Private Sub Worksheet_Change(ByVal Target As Range), de la hoja "Provedores", si tengo las celdas de la hoja "ControlArticulos", que estan en gris, si me las copia, pero si no las tengo selecionadas no me las copia en la hoja "Provedores", en las celdas en gris, y no se como hacerlo.
Un saludo.
Archivos
EJECUTAR MACRO AL ESCRIBIR EN UNA CELDA.xls
(29 KB)

2RESUELTO Ejecutar macro al escribir el 23/02/14, 12:33 pm

DEDOS


Hola, buen día

Intenta con esta modificación en tu macro
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Union(Target, [Q5]).Address = [Q5].Address Then
If Target = "8" Then
    Sheets("ControlArticulos").Select
    Range("D39:E39").Select
    Selection.Copy
    Sheets("Provedores").Select
    Range("N5").Select  'Esta orden cambiala así

    ActiveSheet.Paste
End If
End If

End Sub

Saludos y suerte

servando


Buen día dedos.

Creo que lo siguiente te puede funcionar:

Private Sub Worksheet_Change(ByVal Target As Range)

On Error Resume Next

If Selection.Cells.Count <> 1 Then Exit Sub
If Target.Row <> 5 Then Exit Sub
If Target.Column <> 17 Then Exit Sub
If Target.Value <> 1 Then Exit Sub
   
 Application.EnableEvents = False
 
 Cells(5, 10) = Sheets("ControlArticulos").Cells(39, 4)
 Cells(5, 11) = Sheets("ControlArticulos").Cells(39, 5)
 
 Application.EnableEvents = True


End Sub

Un saludo, Servando

railar


Hola a todos,
puede probar también con 
Código:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [Q5]) Is Nothing Then
Exit Sub
End If
If [Q5].Value = 1 Then
Sheets("ControlArticulos").Range("D39:E39").Copy
    Sheets("Provedores").Range("N5").PasteSpecial Paste:=xlPasteAll
    Else
    Exit Sub
    End If
        End Sub

Saludos

Raúl

5RESUELTO Ejecutar macro al escribir el 23/02/14, 02:34 pm

DEDOS


Hola a todos:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Union(Target, [Q5]).Address = [Q5].Address Then
If Target = "1" Then ' por hacer una prueba le cambie el número, Sorry
    Sheets("ControlArticulos").Select
    Range("D39:E39").Select
    Selection.Copy
    Sheets("Provedores").Select
    Range("N5").Select
    ActiveSheet.Paste
End If
End If

End Sub

Invitado


Invitado
Buenas tardes, os agradezco la contestación a los tres, y entre los tres me lo habéis solucionado.
Os lo agradezco un montón.
Un saludo

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.