Excel - Macro asignar un valor determinado a varios rangos de celdas

 
Vista:

Macro asignar un valor determinado a varios rangos de celdas

Publicado por david (2 intervenciones) el 16/02/2018 16:50:11
Muy buenas; soy nuevo y estoy empezando con las macros de excel.
Estoy intentando dar un valor determinado a otros rangos determinados al hacer doble click mediante codigo en una macro.
El problema es que cuando pongo el rango A1:A20 me rellena con el texto definido de 8:00 H todas las celdas del rango.
Además no consigo configurar varios rangos con diferentes valores determinados.
Es decir:
Al hacer doble click sobre la celda A1 dentro del rango A1:A20 me ponga las 8:00 h pero solo en esa celda y no en todo el rango
Al hacer doble click sobre otra celda de otro rango me haga lo mismo; celda B1 del rango B1:B20 me coloque la hora 9:00 h solo en esa celda.
El formato de hora también me da fallo 08:00h.
El código al que voy llegando es algo así:

1
2
3
4
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 
Range("a1:a20").Value = 08:00h
End Sub

Muchas gracias de antemano a todos.
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
Imágen de perfil de Antoni Masana
Val: 4.066
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Macro asignar un valor determinado a varios rangos de celdas

Publicado por Antoni Masana (1416 intervenciones) el 19/02/2018 07:36:59
Para que te ponga la hora en la celda A1 cuando haces doble click en ella y el la B1 idem de idem

1
2
3
4
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
     If Target.Address = "$A$1" Then Range("A1").Value = "08:00"
     If Target.Address = "$B$1" Then Range("B1").Value = "09:00"
End Sub

Lo que no acabo de entender es que tiene que ver un rango de celdas con hacer doble click en una determinada celda.

Saludos.
\\//_
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

Macro asignar un valor determinado a varios rangos de celdas

Publicado por David (2 intervenciones) el 19/02/2018 09:48:49
Hola Antoni; lo primero gracias por tu tiempo.
Efectivamente eso es lo que necesito pero ampliarlo a rangos, es decir;
Que si pincho en un rango de celdas como por ejemplo A1:IP1 aparezaca la hora 8:00H
si pincho en otro rango de celdas como por ejemplo A2:IP2 aparezaca la hora 9:00 H
si pincho en otro rango de celdas como por ejemplo A2:IP2 aparezaca la hora 10:00 H
Y así sucesivamente.
Todo para crear una tabla con horarios y agilizar la tarea.
te pongo un ejemplo
a1 b1 c1 d1 e1 f1
1 08:00 08:00 08:00
2 09:00 09:00 09:00 09:00
3 10:00 10:00 10:00
4 11:00 11:00 11:00

El código debiera de ser algo así, pero sin conocimiento ninguno.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Address = Range("A1:f1") Then Range("A1:f1").Value = "08:00"
If Target.Address = Range("A2:f2") Then Range("a2:f2").Value = "09:00"
If Target.Address = Range("A3:f3") Then Range("a3:f3").Value = "10:00"
If Target.Address = Range("A4:f4") Then Range("a4:f4").Value = "11:00"
End Sub

Gracias nuevamente.
Un saludo
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