• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

vba verwijzing naar andere cel op ander werkblad

Status
Niet open voor verdere reacties.

Friend

Verenigingslid
Lid geworden
31 jan 2009
Berichten
1.128
Beste forummers,

In vba code wil ik verwijzen naar het werkblad : blad2 cel D2

Code:
Range("blad2!D2", Range("blad2!D10").End(xlUp)).ClearContents

Ik ben bang dat ik de code, "blad2!D2", niet helemaal goed schrijf.

Wat doe ik fout?

Friend
 
Zoiets?
Code:
sheets("blad2").range("d2:d9").clearcontents
 
Laatst bewerkt:
of zo :p
Code:
Sheets("Blad2").Range("D2", Range("D10").End(xlUp)).ClearContents
 
Daar hoef je mij de tong niet voor uit te steken Jack.

1: Als er niets in d2: d10 staat en wel in d1, wordt d1 ook leeggemaakt.
2: Als je de code in een ander blad laat lopen neemt het D10.end(xlup) van je actieve blad. :p

Wil je het zuiver schrijven, dan moet je daarin verwijzen.
Code:
Sheets("Blad2").Range("D2", sheets("blad2").Range("D10").End(xlUp)).ClearContents
En om te voorkomen dat D1 ook wordt leeggemaakt als er niets in de cellen staat?
Code:
Sheets("Blad2").Range("D2:D" & application.max(sheets("blad2").range("d10").end(xlUp).row, 2)).ClearContents
 
Laatst bewerkt:
Harry,

Hartelijk dank voor je reactie:thumb:

De code in je 1e reactie werkt prima voor mij .

In je 2e reactie geef je o.a. de volgende code:

Code:
Sheets("Blad2").Range("D2:D" & application.max(sheets("blad2").range("d10").end(xlUp).row, 2)).ClearContents

Alleen dan maakt hij d2 leeg en als ik hem opnieuw run d3 etc. Dus een voor een. In plaats d2 t/m d10 in een keer.

Is dat de bedoeling van deze code?

Friend
 
Jack,

Ook hartelijk dank voor jouw reactie:thumb:

Jij geeft eigenlijk met jouw code de voorzet voor Harry om een voor een de cellen leeg te maken.

Is dat ook aan te passen?

Friend
 
Dat doet range("D10").end(xlup).

Speel hier eens wat mee, dan zie je een beetje wat er gebeurt.
Vul vanaf D10 en verder naar boven wat in.
Code:
msgbox sheets("blad2").range("d2", sheets("blad2").range("d10").end(xlup)).address

Ik heb geen flauw idee wat de bedoeling is vandaar mijn eerste reactie met een vraagteken.
 
Laatst bewerkt:
Harry,

Hartelijk dank voor je aanvulling.

Als bijlage een voorbeeld bestandje waar ik mee bezig ben.

De bedoeling is dat de unieke waarden van het werkblad panden naar blad2 in kolom D komen.

Dat lukt alleen de waarde "onverhuurd" krijg ik nu 2 keer. Eigenlijk krijg je de waarde van het werkblad panden kolom D2 altijd 2 keer.

Wat is er niet goed aan de code dat dit misgaat?

Code:
Sub Knop20_Klikken()
    
    Sheets("blad2").Range("d2:d10").ClearContents
    Sheets("panden").Range("D2", Sheets("panden").Range("D100").End(xlUp)).AdvancedFilter _
        Action:=xlFilterCopy, CopyToRange:=Sheets("blad2").Range("D2"), Unique:=True
    [D1] = "STATUS"
End Sub


Friend
 

Bijlagen

  • testpdn.xlsm
    21,5 KB · Weergaven: 88
Zo beter?
Code:
Sub Knop20_Klikken()
 With Sheets("blad2")
   .Range("d1:d10").ClearContents
 Sheets("panden").Range("D1", Sheets("panden").Cells(Rows.Count, 4).End(xlUp)).AdvancedFilter 2, , .Range("D1"), True
    .[D1] = "STATUS"
 End With
End Sub
 
Harry,

Top dat is hem helemaal :thumb:

Moet nog even bestuderen hoe je het nu geschreven hebt.

Hartelijk dank.

Friend
 
Mooi,

Als er geen gegevens naast kolom D staan kan je onderstaande regel...
Code:
Sheets("panden").Range("D1", Sheets("panden").Cells(Rows.Count, 4).End(xlUp))

....vervangen door....
Code:
Sheets("panden").Range("D1").currentregion
 
Harry,

Mag ik je nog een aanvullende vraag stellen.

Hoe kan ik het verwezenlijken dat op blad2 alleen geteld wordt als het de betreffende straatnaam betreft?

Friend
 

Bijlagen

  • testpdn.xlsm
    23,1 KB · Weergaven: 68
Friend,

zie bijlage
 

Bijlagen

  • testpdn hs.xlsm
    23,2 KB · Weergaven: 82
Haije,

Hartelijke dank voor je reactie:thumb:

Dat werkt fantastisch :)

Hartelijk dank.

Friend
 
Friend, markeer je de vraag dan nog even als "opgelost"?
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan