Visual Basic para Aplicaciones - crear una macro para modificar datos

Life is soft - evento anual de software empresarial
 
Vista:
sin imagen de perfil

crear una macro para modificar datos

Publicado por José (3 intervenciones) el 25/03/2017 17:41:09
intento crear una macho con cuadro de dialogo para modificar datos, explicación en fichero adjunto
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
sin imagen de perfil

crear una macro para modificar datos

Publicado por Wilfrido (4 intervenciones) el 28/03/2017 03:37:41
Buena noche ,

Primero debes saber cual fue la celda seleccionada en la hoja de calculo , para ello puede usar el evento SelectionChange de la hoja de calculo, algo asi:

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 Dim nombre As String
 Dim column As Integer
 Dim fila As Integer
 nombre = ActiveCell.Value
 column = ActiveCell.column
 fila = ActiveCell.Row
 seleccion nombre, column, fila
End Sub

Después puedes usar una rutina parecida a la siguiente para mostrar los valores:

1
2
3
4
5
6
7
8
9
10
11
Sub seleccion(nombre As String, column As Integer)
 Dim ws As Excel.Worksheet
 Set ws = ThisWorkbook.Worksheets("Hoja2")
 If (nombre <> Empty) Then
    If (column = 1) Then
        ws.Range("D7") = nombre
    Else
       ws.Range("D8") = nombre
    End If
 End If
End Sub

http://macrosymacros.blogspot.com
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar