Auteur Topic: Rijnummer ophalen (gelezen 13286 keer)

SoftAid · « **Gepost op:** 03 januari 2009, 22:39:59 »

Hallo,

is er een VBA opdracht om het rijnummer op te halen (en toe te wijzen aan een variabele) van de rij waarin de actieve cel staat?

Ik heb me al rot gezocht in de help-bestanden, maar mijn kopke is te klein...

Alvast bedankt

SoftAid

RedHead · « **Reactie #1 Gepost op:** 03 januari 2009, 23:05:33 »

SoftAid, Tuurlijk (en de oplossing is simpeler dan je vermoedde

)

Code: [Selecteer]

ActiveCell.Row
Groet, Leo

SoftAid · « **Reactie #2 Gepost op:** 03 januari 2009, 23:20:57 »

Dank Leo,

Ja, veel eenvoudiger dan ik dacht

ik heb een klein voorbeeldje gemaakt, dat werkt.

Code: [Selecteer]

Private Sub CommandButton1_Click()

   Dim num As Integer
   Sheets("Verkoop").Select
   num = ActiveCell.Row
   
   Sheets("Factuur").Cells(1, 2).Value = Sheets("Verkoop").Cells(num, 1).Value
   Sheets("Factuur").Cells(2, 2).Value = Sheets("Verkoop").Cells(num, 2).Value
   
   Sheets("Factuur").Select
  End Sub

Hartelijk dank voor het snelle antwoord.

SoftAid

RedHead · « **Reactie #3 Gepost op:** 03 januari 2009, 23:36:34 »

SoftAid, Graag gedaan! Maarrrr.... nog een kleine hulpvaardige opmerking... Dimensioneer een regel ALTIJD 'as Long'. Een integer breekt namelijk af bij nummer 32.767 en je sheet heeft heel wat meer regels.

Dingetje 2.... Als je 'herhalende regels in een code hebt, kan je die het beste (mooiste?) in een lus zetten. Dit wordt een stuk leesbaarder en makkelijker bij eventuele aanpassingen.

Code: [Selecteer]

Private Sub CommandButton1_Click()
Dim num As Long
Dim i As Integer
   
    num = ActiveCell.Row
   
'   Sheets("Verkoop").Select   'hoef je niet in deze actie te gebruiken...
   
    For i = 1 To 2
        Sheets("Factuur").Cells(i, 2).Value = Sheets("Verkoop").Cells(num, i).Value
    Next i
   
'   Sheets("Factuur").Select   'hoef je niet in deze actie te gebruiken...
   
End Sub

Met deze code heb je een soort transpose in gedachten?

Groet, Leo

SoftAid · « **Reactie #4 Gepost op:** 04 januari 2009, 00:30:43 »

Hallo Leo,

dank je wel. ik heb mijn facturen opgeslaan in het werkblad "Verkoop", waar ik dan alles netjes naast elkaar heb staan. Elke factuur en alle gegevens op 1 rij.

De data worden ook met een macro weggeschreven naar Verkoop als ik de factuur afheb en ze afgedrukt is.

Nu wilde ik een macro maken om de gegevens volledig terug te kunnen halen naar mijn werkblad "fac 21".

Een deel van de gegevens haal ik terug met een lus, maar een ander deel (Naam, datum, adres enz) staan kriskras op mijn fac 21, en die moet ik dus lijn per lijn definiëren.

Stukje van de code, dat met de lus waarmee ik bvb data uit Verkoop! (num, 13) naar fac 21! cel ("C17") wil brengen.:

Code: [Selecteer]

b = 10
   For a = 17 To 45
   b = b + 3
   
   Sheets("fac 21").Cells(a, 3).Value = Sheets("Verkoop").Cells(num, b).Value
   Sheets("fac 21").Cells(a, 4).Value = Sheets("Verkoop").Cells(num,  b + 1).Value
   Sheets("fac 21").Cells(a, 9).Value = Sheets("Verkoop").Cells(num,  b + 2).Value
    
   Next a

SoftAid

RedHead · « **Reactie #5 Gepost op:** 04 januari 2009, 11:18:13 »

SoftAid, ik zie dat je zelf het probleempje in je code al gevonden had (&). Werkt alles nu naar wens?

Groet, Leo

SoftAid · « **Reactie #6 Gepost op:** 04 januari 2009, 12:31:12 »

Hallo Leo,

Ik ben even gestopt, wegens inventaris en dergelijke.

Toch heb ik een raar beestje aan mijn broek, waar ik de oorzaak niet van kan vinden. Alles in mijn werkboek (Excel 2002) waar ik gisteren mee bezig was werkt sinds gisteren zeer traag. Zelfs tijdens het openen van een werkblad zie ik de elementen een voor een opgebouwd worden. Vroeger was dat "Flits", en mijn werkblad was open. Bijzonder bij het uitvoeren van Macro's zie ik werkelijk lus per lus uitgevoerd worden.

Heb ik in Instellingen iets misgezet? Controle? Compressie? Ik weet het niet. Het is enkel met dat werkboek. Met de kopie die ik gisteren maakte alvorens aan die bepaalde Macro te beginnen, heb ik het niet.

Groeten,

SoftAid

SoftAid · « **Reactie #7 Gepost op:** 04 januari 2009, 16:46:32 »

Citaat van: SoftAid op 04 januari 2009, 12:31:12

Toch heb ik een raar beestje aan mijn broek, waar ik de oorzaak niet van kan vinden. Alles in mijn werkboek (Excel 2002) waar ik gisteren mee bezig was werkt sinds gisteren zeer traag. Zelfs tijdens het openen van een werkblad zie ik de elementen een voor een opgebouwd worden. Vroeger was dat "Flits", en mijn werkblad was open. Bijzonder bij het uitvoeren van Macro's zie ik werkelijk lus per lus uitgevoerd worden.

Probleem opgelost. Ik had dezelfde macro (met dezelfde naam) op verschillende plaatsen staan in verschillende werkbladen, en in een Module. Nu staat hij alleen in het werkblad Verkoop. Werkblad is terug snel nu.
PS: Maakt het iets uit of hij daar staat of in een Module?

Nog één vraagje: In een macro wil ik VlookUp gebruiken om het laatste factuurnummer uit Blad "Verkoop" te halen, en dit met 1 te verhogen, om dit nieuwe nummer in mijn volgende factuur in "fac 21" te gebruiken.

Dat kon vroeger heel simpel, omdat ik nog met gewone getallen werkte: factuurnummer 1, 2, 3 ...

Maar mijn boekhouder vraagt mij nu om in de toekomst mijn facturen te nummeren met 2009/1, 2009/2, 2009/3 ....

Hoe kan ik hier de code voor maken, zodat ik met Ver.Zoeken (VLookUp) de tekst 2009/1 kan ophalen uit werkblad Verkoop (de laatst opgeslagen factuur), en er dan enkel de "1" met 1 verhogen zodat ik 2009/2 verkrijg, dat ik kan wegschrijven naar een cel in "fac 21"?

Fielen danke...

Groeten,

SoftAid

RedHead · « **Reactie #8 Gepost op:** 04 januari 2009, 21:19:58 »

Code: [Selecteer]

PS: Maakt het iets uit of hij daar staat of in een Module?

Nope! Kan allebei (in dit geval)... Probeer wel eenheid te houden in wat je waar plaatst aan code. Dat maakt het nazoeken naar fouten wat makkelijker.

Code: [Selecteer]

Nog één vraagje...dan heb ik een wedervraag... Is dat laatste factuurnummer altijd de laatste regel van het totaalblad?

Groet, Leo

SoftAid · « **Reactie #9 Gepost op:** 04 januari 2009, 21:57:56 »

Citaat van: RedHead op 04 januari 2009, 21:19:58

...dan heb ik een wedervraag... Is dat laatste factuurnummer altijd de laatste regel van het totaalblad?

altijd...

met de macro moet enkel de laatste factuurnummer worden opgevraagd, en dan verhoogd met 1 voor het gedeelte achter de slash.

SoftAid

RedHead · « **Reactie #10 Gepost op:** 04 januari 2009, 22:17:24 »

OK! Dan wordt het...

Code: [Selecteer]

Sub ff()
Dim LaatsteNr As String, NieuwNr As String
Const cJAAR As String = "2009/"

    LaatsteNr = Sheets("fac 21").Cells(Cells.Rows.Count, 3).End(xlUp).Value
    NieuwNr = cJAAR & CInt(Mid(LaatsteNr, 6)) + 1

End Sub

Verander nog wel ff die '3' in de 1e cells naar je eigen kolom waar je factuurnrs staan. Ik gokte trouwens ff de naam van je 'totaalsheet', dus die moet je wellicht ook nog aanpassen.
Kom je zo weer verder?

Groet, Leo

SoftAid · « **Reactie #11 Gepost op:** 04 januari 2009, 22:48:25 »

Hallo Leo,

hartelijk dank voor de hulp. Dit had ik nooit zelf gevonden, daar is mijn koppeke te klein voor

.
Ik kan het nauwelijks lezen

Maar na wat studeren zal ik de formule (s) wel begrijpen.
Toepassen en aanpassen is allezins geen probleem.

Hartelijk dank

.

SoftAid

RedHead · « **Reactie #12 Gepost op:** 04 januari 2009, 22:53:00 »

SoftAid, Graag gedaan. Als je nog meer wilt weten geef je maar een gil (ik wil per slot van rekening óók wel 'ns op de 1000 antwoorden komen...

).

Groet, Leo

Help!

Menu

Hulp bij posten

Zoeken

Recente topics