totalen sheet 1 weergeven sheet2

[Ravermaya]

Een pakket kan max 9 rijen bevatten
het aantal rijen wordt opgevraagd via inputbox

totaal wordt berekend van de lijnen
en eronder weergegeven

hoe kan ik zoeken op welke lijn het totaal staat en dan weergeven in sheet 2?

ik heb volgende maar zit dan vast


Public vRij
Public vWaarde
Public vWaarde2
Public vWaarde3

Public Sub Test1()

With Worksheets(1).Range("B:B")
Set a = .Find("Totaal1", LookIn:=xlValues)
If Not a Is Nothing Then
vRij = a.Row

vWaarde = Range("D" + CStr(vRij))
vWaarde2 = Range("E" + CStr(vRij))
vWaarde3 = Range("F" + CStr(vRij))


Sheets("Sheet2").Range("D4").value = vWaarde
Sheets("Sheet2").Range("E4").value = vWaarde
Sheets("Sheet2").Range("F4").value = vWaarde

End If
End With


End Sub

maar dat werkt dus niet

 

[Roncancio]

Wat werkt er precies niet?
Het kan ook zijn dat er een spatie bij Totaal1 (hoort die 1 er wel?) staat.

Verder kan je code een stuk korter, maar dat komt later wel.

Kan je eventueel een testbestand sturen zonder gevoelige informatie uiteraard.

Met vriendelijke groet,


Roncancio

 

[snb]

Sub genoeg()
  sheets(1).columns(2).Find("Totaal1").offset(,1).resize(,3).copy Sheets(2).Range("D4")
End Sub

 

[Ravermaya]

Sub genoeg()
  sheets(1).columns(2).Find("Totaal1").offset(,1).resize(,3).copy Sheets(2).Range("D4")
End Sub

Beste snb,

Bedankt voor uw post, maar zou u aub ook wat uitleg willen geven bij deze code.
Zodat ik ze ook snap en de volgende keer zelf kan "produceren".

Ik wil vooral ook bijleren.

Dank u

 

[snb]

Snappen= langzaam lezen + F1 gebruiken:

offset markeren in de VBE-editor; F1 : lees de uitleg
resize markeren in de VBEditor; F1 : lees de uitleg

etc.

 

[Ravermaya]

Snappen= langzaam lezen + F1 gebruiken:

offset markeren in de VBE-editor; F1 : lees de uitleg
resize markeren in de VBEditor; F1 : lees de uitleg

etc.

u hebt overschot van gelijk
alvast bedankt

 

[Roncancio]

Beste snb,

Bedankt voor uw post, maar zou u aub ook wat uitleg willen geven bij deze code.
Zodat ik ze ook snap en de volgende keer zelf kan "produceren".

Ik wil vooral ook bijleren.

Dank u

Voor een wat gebruikersvriendelijker benadering...

sheets(1).columns(2).Find("Totaal1").offset(,1).resize(,3).copy Sheets(2).Range("D4")

Sheet(1) = 1e werkblad.
Columns(2) = 2e kolom
Find("Totaal1") = zoeken naar Totaal1
Offset(,1) = verschuiving (rij, kolom) dus 1 kolom naar rechts (van totaal1)
Resize(,3) = Selecteren (rij, kolom) dus 3 kolommen naar rechts
Copy = kopieren

Sheets(2) = 2e werkblad.
Range("D4") = celbereik.

Dus:
Zoek in Column 2 van Sheet 1 naar Totaal1.
Ga naar de naastgelegen kolom Offset(,1) en selecteer die kolom en de 2 kolommen die daarnaast liggen Resize(,3).
Kopieer de geselecteerde cellen naar Sheet 2 beginnend bij cel D4.

Met vriendelijke groet,


Roncancio

 

[Ravermaya]

Voor een wat gebruikersvriendelijker benadering...

sheets(1).columns(2).Find("Totaal1").offset(,1).resize(,3).copy Sheets(2).Range("D4")

Sheet(1) = 1e werkblad.
Columns(2) = 2e kolom
Find("Totaal1") = zoeken naar Totaal1
Offset(,1) = verschuiving (rij, kolom) dus 1 kolom naar rechts (van totaal1)
Resize(,3) = Selecteren (rij, kolom) dus 3 kolommen naar rechts
Copy = kopieren

Sheets(2) = 2e werkblad.
Range("D4") = celbereik.

Dus:
Zoek in Column 2 van Sheet 1 naar Totaal1.
Ga naar de naastgelegen kolom Offset(,1) en selecteer die kolom en de 2 kolommen die daarnaast liggen Resize(,3).
Kopieer de geselecteerde cellen naar Sheet 2 beginnend bij cel D4.

Met vriendelijke groet,


Roncancio

Bedankt, hiermee uit de nood geholpen.
Ik zal deze vraag dan ook maar als opgelost vlaggen.

Dank u