dubbelklik kolom D regel invoegen naar beneden en de opmaak meenemen

[jdrmer]

Hallo dames en heren,
wie wil helpen met,
een regel is voorzien van een opmaak, na dubbelklik op een willekeurige cel (moet leeg zijn, met niet lege cel moet dit niet kunnen) in kolom D, zou er een rij naar beneden worden ingevoegd met de opmaak van de regel waar ik op stond.

mvg Jan

 

[HSV]

Hallo,

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 With Target
    If .Value > 0 Then
       .Offset(1).EntireRow.Insert
       Range(.Address, .Offset(1).Address).EntireRow.FillDown
       Cancel = True
    End If
 End With
End Sub

Of alleen voor kolom D.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 With Target
    If .Column = 4 And .Value > 0 Then
       .Offset(1).EntireRow.Insert
       Range(.Address, .Offset(1).Address).EntireRow.FillDown
       Cancel = True
    End If
 End With
End Sub

 

[jdrmer]

dubbelklik kolom D regel invoegen naar beneden en de opmaak meenemen Uw bericht

Harry dit is gewoon fantastisch, zou je aub achter de regels willen zetten wat dit doet?
Een paar regels begrijp ik, maar dat offset?
Dankjewel.

 

[HSV]

Zet onderstaande regel er maar eens tussen.

msgbox Range(.Address, .Offset(1).Address).address

Dan begrijp je 'offset' al een beetje.
Zie de Help in Vba.

 

[jdrmer]

Harry, kun je het zo maken dat dit alleen de opmaak kopieerd en niet de waardes.

 

[HSV]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 With Target
    If .Column = 4 And .Value > 0 Then
       .Offset(1).EntireRow.Insert
       Range(.Address, .Offset(1).Address).EntireRow.FillDown
     [COLOR=#FF0000]  .Offset(1).EntireRow.ClearContents[/COLOR]
       Cancel = True
    End If
 End With
End Sub

 

[jdrmer]

dubbelklik kolom D regel invoegen naar beneden en de opmaak meenemen Uw bericht

Harry, je hebt me fantastisch geholpen.
Hoe meer ik deze kennis lees, hoe meer ik er achter kom hoe weinig ik weet.
Ik heb nog een lange weg te gaan.
Dit is prachtige kennis.
mvg Jan

 

[HSV]

Graag gedaan jan.