| U bevindt zich > Oude forum > Visual Basic 6.0 > Databases ... (VB 6.0) > Lege cel zoeken |
| Gepost door jwvanweert gepost op 10/05/2005 om 19:41 |
Beste mensen,
Ik hoop dat jullie me kunnen helpen. Ik wil een macro schrijven die in mijn Excel werkblad vanaf cel A3 de eerstvolgende lege rij zoekt en van die rij de A-kolom selecteert. Daar moet dan data in vanuit een formulier. Dus hij moet eerst kijken naar A3, als daar iets in staat doorgaan naar cel A4. Staat er bijvoorbeeld in cel A5 niets, dan moet hij daar stoppen en die cel selecteren.
Wie kan me (op weg) helpen?
Alvast bedankt,
Jan-Willem |
| Gepost door Ronneke gepost op 11/05/2005 om 01:35 |
Hoi
Vooreerst welkom op dit forum.
De volgende code zal de eerste lege rij vinden in kolom A vanaf Rij 3
Code:
Dim Rij As Long
Rij = 3 'start vanaf rij 3
Do Until IsEmpty(Cells(Rij, 1).Value)
Rij = Rij + 1
Loop
|
Groeten
|
| Gepost door malloc gepost op 11/05/2005 om 12:03 |
Nog een mogelijkheid:
Code:
| myxlSheet.Range("A3").End(xlDown).Offset(1,0).Select | myxlSheet is een Excel.WorkSheet object dat refereert naar de sheet.
|
| Gepost door jwvanweert gepost op 11/05/2005 om 15:19 |
Hallo,
Bedankt voor de reacties, maar op de een of andere manier gebeurd er helemaal niets.
Waar kan dit aan liggen?
Bijvoorbeeld dat ik de Engelse versie van Office heb?
Of kan het zijn dat ik jullie codes verkeerd heb geplaatst?
Ik heb hem nu gezet tussen
Sub LEGE_REGEL
en
End Sub
Alvast bedankt weer,
Jan-Willem |
| Gepost door jwvanweert gepost op 11/05/2005 om 15:48 |
Hij doet het al... Ik heb die van Maloc gebruikt, maar Ronneke ook jij bedankt voor het meedenken. Als ik nog meer vragen heb weet ik nu in ieder geval waar ik terecht kan 
Bedankt, jullie zijn goed bezig
Jan-Willem |
| Gepost door malloc gepost op 11/05/2005 om 15:54 |
Ik weet niet wat je juist al hebt van code, maar je moet natuurlijk wel een connectie maken met je Excel-bestand.
Bekijk even volgend voorbeeldje. Dit opent het Excel-bestand
d: est.xls en plaats in de eerste lege cel in kolom A de tekst
"blahblah".
Code:
Dim xlApp As New Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.WorkSheet
' bestand openen in de nieuwe Excel instantie xlApp
Set xlBook = xlApp.Open("D:Test.xls")
' referentie naar eerste sheet opslaan
set xlSheet = xlBook.Sheets(1)
' Volgende regel plaatst de tekst "blahblah" in de eerste lege cel in kolom A (vanaf A3)
xlSheet.Range("A3").End(xlDown).Offset(1,0).Value = "blahblah"
xlBook.Save
xlBook.Close
xlApp.Quit
set xlsheet = nothing
set xlbook = Nothing
set xlapp = nothing |
|
| Gepost door malloc gepost op 11/05/2005 om 15:56 |
jwvanweert zei:
Hij doet het al... Ik heb die van Maloc
gebruikt, maar Ronneke ook jij bedankt voor het meedenken. Als ik nog
meer vragen heb weet ik nu in ieder geval waar ik terecht kan
Bedankt, jullie zijn goed bezig
Jan-Willem |
Ok negeer dan maar mijn vorige bericht aangezien ik blijkbaar te laat kwam.
|
