1 2 3 4 5 6 7 8 9 | Dim c As Range For Each c In Sh.Range("A1:A10") c.Value = Sheets("Sheet1").Range("A1").Value Next End Sub |
quote:Op donderdag 19 maart 2009 21:27 schreef Chilley het volgende:
Goedenavond!
Ik heb een klein vraagje over excel. Wie weet kan een van jullie mij helpen?
Ik ben op zoek naar een functie of macro waarbij het mogelijk is om cellen automatisch te kopieren.
Bijvoorbeeld:
Cel a1 staat "X" en cel b1 staat 10
Cel a2 staat "Y" en cel b2 staat 5
Is het mogelijk om excel op een nieuw werkblad automatisch 10x de X en 5x y onder elkaar te zetten?!
Het werkelijke bestand waarmee ik werk is stukken groter natuurlijk maar het gaat om het principe!
Ik hoor het heel graag!
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | Sheets("Blad1").Activate i = 0 k = 0 Do i = i + 1 For j = 1 To Cells(i, 2).Value k = k + 1 Sheets("blad2").Cells(k, 1).Value = Cells(i, 1).Value Next Loop Until Cells(i, 1).Value = "" End sub |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 | Sheets("Sheet1").Activate i = 0 k = 0 Do i = i + 1 For j = 1 To Cells(i, 2).Value k = k + 1 Sh.Cells(k, 1).Value = Cells(i, 1).Value Next Loop Until Cells(i, 1).Value = "" End Sub |
1 2 3 4 5 6 7 8 9 | Dim a, b, c As Long a = Sheet2.Range("J32").Value b = Sheet2.Range("K32").Value c = Sheet2.Range("L32").Value 'MsgBox a & b & c Range("Invulcellen").Interior.Color = RGB(a, b, c) 'MsgBox Range("E13").Interior.Color End Sub |
1 |
En post werkende resultaten indien mogelijk, want dit heeft ook mijn interesse.quote:Op vrijdag 20 maart 2009 11:51 schreef DaFan het volgende:
qu63; beetje Google kan geen kwaad? Ik heb geen verstand van SQL
quote:SQLExecQuery, functie
Zie ookSpecificatiesGebruik SQLExecQuery en de andere ODBC-functies niet in de invoegmacro Xlodbc.xla, maar gebruik in plaats daarvan de objecten, methoden en eigenschappen in de ADO-bibliotheek (ActiveX Data Objects) van Microsoft.
Met SQLExecQuery wordt een query uitgevoerd op een gegevensbron met een koppeling die tot stand is gebracht met SQLOpen.
Met SQLExecQuery wordt de query alleen maar uitgevoerd. Het resultaat kan worden opgehaald met SQLRetrieve of SQLRetrieveToFile.
Deze functie maakt deel uit van de invoegmacro Xlodbc.xla. Voordat u de functie kunt gebruiken, moet u een verwijzing naar de invoegmacro instellen met de opdracht Verwijzingen in het menu Extra.
SQLExecQuery(ConnectionNum, QueryText)
ConnectionNum Vereist. De unieke koppelings-id van de gegevensbron (als resultaat gegeven door SQLOpen) waarop u de query wilt uitvoeren.
QueryText Vereist. De query die op de gegevensbron moet worden uitgevoerd. De query moet voldoen aan de SQL-syntaxis voor het betreffende stuurprogramma.
Resultaatwaarde
De waarde die door SQLExecQuery als resultaat wordt gegeven, is afhankelijk van de SQL-instructie, zoals wordt weergegeven in de volgende tabel.
SQL-instructie Resultaatwaarde
SELECT Het aantal kolommen in de resultaatset.
UPDATE, INSERT of DELETE Het aantal rijen dat door de instructie wordt beïnvloed.
Elke andere geldige SQL-instructie 0 (nul)
Als de functie SQLExecQuery de query niet kan uitvoeren op de opgegeven gegevensbron, wordt fout 2042 als resultaat gegeven.
Als ConnectionNum ongeldig is, geeft SQLExecQuery fout 2015 als resultaat.
Aanvullende informatie
Voordat SQLExecQuery kan worden aangeroepen, moet een koppeling met de gegevensbron tot stand worden gebracht met de functie SQLOpen. De unieke koppelings-id die door SQLOpen als resultaat wordt gegeven, wordt door SQLExecQuery gebruikt om query's door te geven aan de gegevensbron.
Als u SQLExecQuery aanroept met een eerder gebruikte koppelings-id, worden alle wachtende resultaten voor die koppeling vervangen door de nieuwe resultaten.
Voorbeeld
In het volgende voorbeeld wordt een query uitgevoerd op de voorbeelddatabase Northwind. Het resultaat van de query wordt weergegeven in Sheet1 en bestaat uit een lijst van alle producten die in bestelling zijn.
databaseName = "Northwind"
queryString = _
"SELECT * FROM product.dbf WHERE (product.ON_ORDER<>0)"
chan = SQLOpen("DSN=" & databaseName)
SQLExecQuery chan, queryString
Set output = Worksheets("Sheet1").Range("A1")
SQLRetrieve chan, output, , , True
SQLClose chan
Ik dacht misschien een van jullie het wist, dat is meestal wat duidelijker dan dat ik het zelf uit moet gaan zoeken..quote:Op vrijdag 20 maart 2009 11:51 schreef DaFan het volgende:
qu63; beetje Google kan geen kwaad? Ik heb geen verstand van SQL
Dat lijkt meer op een benadering van een lokale niet beveiligde SQl-database..quote:Op vrijdag 20 maart 2009 12:17 schreef Metal_Jag het volgende:
[..]
En post werkende resultaten indien mogelijk, want dit heeft ook mijn interesse.
FF een quote uit de help van Excel:
[..]
Sorry, bedoelde het natuurlijk niet zo, maar via 'excel sql' vond ik al een redelijke uitleg.quote:Op vrijdag 20 maart 2009 12:18 schreef qu63 het volgende:
[..]
Ik dacht misschien een van jullie het wist, dat is meestal wat duidelijker dan dat ik het zelf uit moet gaan zoeken..
1 2 | [Vrijdag] [20-03-2009] [14:30] [21:00] [6:30] [6,5] [waarde van X * C5] [¤14,50] [loonperdag+fooi] |
Feestdagen bv..quote:Op maandag 23 maart 2009 18:55 schreef Joooo-pi het volgende:
Ook handig als je met andere tarieven gaat werken op dagen enzo.
Dan gebruik je ipv weekdag() werkdag()quote:
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |