copieren als ik aanvink ?

[K Timmer]

Hallo.

stel er staan gegeven in Blad1 van A1 tot DD1
en dan wel 50 rijen.

ik wil hier nu een rij aanwijzen zodat deze wordt gecopieerd naar een ander blad zonder dat ik zelf moet copieren en plakken.

dus door een rij aan te wijzen of iets ?

wil dit en hoe kan ik dat doen ?

Groeten Koos.

 

[snb]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  target.entirerow.copy Blad2.rows(10)
End Sub

Dubbelklik in een cel en de rij wordt gekopieerd naar rij 10 van blad 2.

 

[K Timmer]

Hallo snb.

Dank voor de reactie.

als ik jou code lees kan ik mij iets voorstellen van de werking.

maar waar moet ik dit plaatsen ?.

in een module of Thisworkbook ? of elders

Groeten koos.

 

[danny147]

Beste K Timmer

Brobeer het eens uit zo leer je iets bij.

Groetjes Danny. :thumb:

 

[snb]

Ik zou beginnen in de VBA-module: Blad1

 

[K Timmer]

Hallo.

Het moet dus in het VBA blad staan van waar uit ik wil copieren.


Het werkt perfect.

Hartelijk dank.

Koos.
:thumb:

 

[danny147]

Beste snb

Ik zou beginnen in de VBA-module: Blad1

Zo is het niet moeilijk

Groetjes Danny. :thumb:

 

[snb]

Danny,

Weer wat geleerd.

 

[K Timmer]

Hallo.

probleem nog niet opgelost.

als ik namelijk dubbel click in een rij dan wordt de rij 10 gecopieerd
naar een ander blad op rij 10.

het is de bedoeling dat als ik op een willekeurige rij klik deze rij wordt gecopieerd naar een ander blad op rij 10.

Groeten koos.

 

[snb]

Dan heb je andere code gebruikt dan die ik had aangeleverd.

 

[K Timmer]

Hallo snb.

ik heb deze code in blad4 staan:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
  Target.EntireRow.Copy Blad11.Rows(10)
End Sub

het schrijft netjes de data vanuit blad4 naar blad11 echter maakt het niet op welke rij ik dubbel klick hij blijft rij 10 weg schrijven naar blad11.

 

[K Timmer]

Hallo snb.

ik heb even een nieuwe opstelling gemaakt met schone bladen en nog eens geprobeerd.

het gaat goed tot ik verzijzingen wil gaan copieren hier gaat het fout.
het copieerd wel maar de verwijzing word een 0 of #VERW!.

Koos.

 

[snb]

Het kopiëren gaat zoals bedoeld.
Als je niet tevreden bent met het resulaat moet je even analyseren waaraan dat ligt. Sommige verwijzingen kun je statisch maken.

 

[danny147]

Beste K Timmer

Heb deze uitgeprobeerd en alles verloopt naar wens zoals snb het aangaf.

Zie bestandje dat bij mij werkt.

Groetjes Danny. :thumb:

 

[K Timmer]

Hallo.
Zie hier het probleem.

 

[danny147]

Beste K Timmer

Als je de tekst gewoon in de cellen A25 en A27 plaatst zonder een verwijzing naar tabblad3, dan zal hij ze wel wegschrijven naar tabblad2 op rij 10.

Groetjes Danny. :thumb:

 

[K Timmer]

Hallo Danny.

Klopt.

maar het probleem is dat ik deze data uit een andere bestaande xls file moet plukken.
vervolgens een rij moet kunnen kiezen.
en deze dan verder verwerk in een ander blad.

oproepen kiezen verwerken.

dus het zijn verwijzingen.

verder werkt het perfect hoor maar hier blijft het steken.

Groeten Koos.

 

[Warme bakkertje]

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
   If Target.HasFormula Then
        With Target
            .Formula = "@" & Target.Formula
            .EntireRow.Copy Blad2.Rows(10)
            .Replace "@", ""
        End With
        Blad2.Rows(10).Replace "@=", "="
    Else
        Target.EntireRow.Copy Blad2.Rows(10)
    End If
End Sub

Mvg

Rudi

 

[snb]

De oplossing had ik je al gegeven.

Ooit van statische/absolute verwijzingen gehoord ?
Maak de verwijzingen in Blad 1 van de volgende vorm =Blad3!$D$18

Dit is les 1 van de beginnerscursus Excel.

 

[K Timmer]

Hallo.

Dit was iets uit les 1 van de beginnerscursus Excel ?.

Ergens moet men beginnen.

Laat ik maar zeggen , ieder heeft zijn eigen kwaliteit.

maar het probleem is mij volkomen duidelijk en ook opgelost door jullie
medewerking.

Dank daarvoor.

Groeten koos.:thumb: