1 2 3 4 5 6 7 8 9 10 | range("C14").select for i = 1 to 53 if activecell.value<>"" then exit sub else activecell.offset(1,0).select next i end sub |
1 2 3 | 'doe wat end if |
oeh elegant!!!quote:
Ik denk dat ik jouw code het beste kan gebruiken.quote:
ja ik heb office maar gewoon normaal excel. Aangezien het bestand afkomstig is van excel 2007 kan ik hem niet leznequote:Op zondag 27 januari 2008 11:22 schreef Deetch het volgende:
Heb je wel office op je pc of dat ook niet? Zonder office wordt het lastig. In notepad en wordpad zie je iig niets. Heb je al gegoogled op free excel viewer?
De gene van wie je dat bestand hebt gekregen moet hem opslaan in een format dat je wel kan lezen.
welke versie is "normaal" excel. Degene die je dat bestand heeft gestuurd moet hem opslaan als excel voor oudere versies.quote:Op zondag 27 januari 2008 15:59 schreef stevengerrard het volgende:
[..]
ja ik heb office maar gewoon normaal excel. Aangezien het bestand afkomstig is van excel 2007 kan ik hem niet lezne
Alt-enter na elke regel?quote:Op zondag 27 januari 2008 19:41 schreef 2cv het volgende:
Ik wil graag een hele lap text (een routebeschrijving) in 1 cel proppen. Resultaat is dat ik een cel krijg van 3 kilometer breed. Daarom wil ik de text binnen die ene cel boven elkar zetten. Maar hoe doe ik dat ?
Voorbeeld van wat ik nu heb:
Eerste straat links, 350 meter rechtdoor, rechtsaf, bij de stoplichten weer rechtsaf en dan de 3e supermarkt links
Wat ik wil:
Eerste straat links, 350
meter rechtdoor, rechtsaf,
bij de stoplichten weer
rechtsaf en dan de 3e
supermarkt links
Nope, ik bedoel meer dat excel de cel zelf mooi verdeeld vult.quote:Op zondag 27 januari 2008 20:14 schreef mirelia het volgende:
[..]
Alt-enter na elke regel?
Of bedoel je dat niet?
Dat werkt zoals ik wil, top, bedankt !quote:Op zondag 27 januari 2008 20:17 schreef hooibaal het volgende:
Celeigenschappen, Uitlijning, Terugloop.
1 |
Nee wel krijg ik de melding dat iemand af en toe de file heeft beveiligd (heb dan wel de mogelijkheid om m lokaal te saven, het staat op een server). Maar dan vraag ik meestal diegene om hem de file opnieuw op te laten starten en dan is het wel goed. Alleen nu krijg ik geen melding maar krijg ik opeens van bepaalde gebruikers te horen (die m later opstarten) dat ze er niet in kunnen en ga ik kijken en dan is er eentje niet gedeeld. (van de 3 gebruikers op dat moment bijvoorbeeld).quote:Op maandag 28 januari 2008 14:35 schreef Deetch het volgende:
Krijg je bij het openen van een gedeeld bestand niet de mogelijkheid om deze als stand alone te openen?
Dan kan het dus gebeuren dat ze een read-only of kopie versie voor hun neus krijgen en deze dan weer over het origineel heen opslaan zodat het eens gedeelde bestand nu alleen door degene die hem heeft ge-"save-as"d kan worden geopend.
Zou goed kunnen, maar de gebruikers zijn niet echt behulpzaam... als ze zeggen dat ze niks hebben gedaan dan hebben ze overal op lopen rammen.quote:Op maandag 28 januari 2008 15:18 schreef Deetch het volgende:
er is niet iemand die hem lokaal opend en dat over de gedeelde sheet heen opslaat?
het werkt toch ook, alleen moeten de gebruikers zich wel aan de spelregels houden.quote:Op maandag 28 januari 2008 15:48 schreef nils7 het volgende:
[..]
Zou goed kunnen, maar de gebruikers zijn niet echt behulpzaam... als ze zeggen dat ze niks hebben gedaan dan hebben ze overal op lopen rammen.
Laat staan dat ze zeggen wie,wat,hoe,waar (terwijl dat ik ze echt wel gezegd heb dat als ze iets vreemds tegen komen dat ze dat dan moeten melden maar jah...)
Als ze een ja of neej melding krijgen klikken ze ook standaard op ja enzo!
Ik ga ze maar eens opnieuw instrueren.
Ik kan ze helaas niet elke minuut volgen en woensdag stop ik bij dit bedrijf dus dan moet het werken!
Oké Deetch, ik ben er vandaag mee bezig geweest, maar het wil nog niet vorderen.quote:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 | Dim X As Variant Dim FF, FG, M1F, M1G, M2F, M2G, M3F, M3G If _ Worksheets("Invoersheet").Range("J9") = "FG" _ Then X = "F16" ElseIf _ Worksheets("Invoersheet").Range("J9") = "M1G" _ Then X = "J16" ElseIf _ Worksheets("Invoersheet").Range("J9") = "M2G" _ Then X = "N16" ElseIf _ Worksheets("Invoersheet").Range("J9") = "M3G" _ Then X = "R16" ElseIf _ Worksheets("Invoersheet").Range("J9") = "M1F" Or Worksheets("Invoersheet").Range("J9") = "M2F" Or Worksheets("Invoersheet").Range("J9") = "M3F" _ Then MsgBox "Je hebt de keuze gemaakt voor kolom " + Worksheets("Invoersheet").Range("J9") + "." + (Chr(13)) + "Dit is een kolom met fabriekswaarden. Vul deze kolom in op de volgende sheet.", vbOKOnly + vbInformation End Else MsgBox "Er is geen of een onvolledige kolom keuze gemaakt." + (Chr(13)) + "Doe dit door in Cel J9 de juiste kolomkeuze te maken." + (Chr(13)) + "Let op hoofdletters!!", vbOKOnly + vbInformation End End If -------------------------------------- Worksheets("Invoersheet").Range("F22:F75").Copy _ Worksheets("Invoer").Range(X).PasteSpecial Paste:=xlPasteValues _ Application.CutCopyMode = False |
1 2 3 4 5 6 7 | range=X & ":" & left(X,1) & "69" if Range(range).SpecialCells(xlCellTypeBlanks).Cells.Count = Range(range).Cells.Count then copy blabla else dont copy end if |
Deze code werkt zo goed als prima.quote:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 | Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim Cell As Range Dim Rng1 As Range On Error Resume Next Set Rng1 = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas, 1) On Error GoTo 0 If Rng1 Is Nothing Then Set Rng1 = Range(Target.Address) Else Set Rng1 = Union(Range(Target.Address), Rng1) End If For Each Cell In Rng1 Select Case Cell.Value Case vbNullString Cell.Interior.ColorIndex = xlNone Cell.Font.Bold = False Case 0 Cell.Interior.ColorIndex = 3 Cell.Font.Bold = True Case 1 To 4 Cell.Interior.ColorIndex = 4 Cell.Font.Bold = True Case 5 To 9 Cell.Interior.ColorIndex = 5 Cell.Font.Bold = True Case 10 To 19 Cell.Interior.ColorIndex = 6 Cell.Font.Bold = True Case 20 To 49 Cell.Interior.ColorIndex = 7 Cell.Font.Bold = True Case 50 To 99 Cell.Interior.ColorIndex = 8 Cell.Font.Bold = True Case 100 To 1E+17 Cell.Interior.ColorIndex = 9 Cell.Font.Bold = True Case Else Cell.Interior.ColorIndex = xlNone Cell.Font.Bold = False End Select Next End Sub |
Voeg na "For Each Cell In Rng1" het if-statement "If Cell.Column = 11 or Cell.Column = 14" toe.quote:Op maandag 4 februari 2008 11:31 schreef Folkwin het volgende:
Allereerst wil ik deze opmaak maar in een bepaald cellenbereik (de gehele "K" en "N" kolom) toepassen.
Voeg "Case -4 To -1" toe voor een negatieve waarde.quote:Daarnaast moeten dezelfde klassen ook in de "-" (min) vorm toegepast worden maar lijkt dat niet te lukken.
http://www.mvps.org/dmcritchie/excel/colors.htmquote:En is er ook een kleurenschema bekend met alle kleuren met bij behorende nummers?
-Deze lukt mij niet.. ik krijg een fout. Compileerfout: verwacht Then of GoToquote:[..]
Voeg na "For Each Cell In Rng1" het if-statement "If Cell.Column = 11 or Cell.Column = 14" toe.
Beter is het om het nog eerder op te vangen. Hoe minder acties er uitgevoerd worden hoe beter de performance.
1 2 3 | If Cell.Column = 11 or Cell.Column = 14 Select Case Cell.Value |
- Ik had het verkeerd omgedaan.. stomstom. Gelukt!quote:[..]
Voeg "Case -4 To -1" toe voor een negatieve waarde.
Doe dit wel voor de Case Else, anders krijg je errors.
-Mijn dank is groot!quote:[..]
Link
-Deze lukt mij niet.. ik krijg een fout. Compileerfout: verwacht Then of GoToquote:[..]
Voeg na "For Each Cell In Rng1" het if-statement "If Cell.Column = 11 or Cell.Column = 14" toe.
Beter is het om het nog eerder op te vangen. Hoe minder acties er uitgevoerd worden hoe beter de performance.
1 2 3 | If Cell.Column = 11 or Cell.Column = 14 Select Case Cell.Value |
Je moet "Then " aan het einde van de regel met het if-statement zetten.quote:Op woensdag 6 februari 2008 10:56 schreef Folkwin het volgende:
Niemand die mij met deze kan helpen:
[..]
-Deze lukt mij niet.. ik krijg een fout. Compileerfout: verwacht Then of GoTo
Ziet er nu als volgt uit:
[ code verwijderd ]
1 2 3 | If Cell.Column = 11 or Cell.Column = 14 Then Select Case Cell.Value |
Office-knop > Opties voor Excel > Vertrouwenscentrumquote:Op woensdag 6 februari 2008 11:49 schreef RayMania het volgende:
Weet iemand waar ik de macro's kan aanzetten bij Excel 2007? Ik zoek me rot.
De code werkt grotendeels prima!quote:
1 |
1 2 3 4 5 6 7 8 9 10 11 12 | Dim n As Integer=myString.Length For i as integer=0 to n-1 dim str as string=myString.Substring(i,i+1) If IsNumeric(str) then strNumber+=str else strChar+=str End if Next Xletters = strChar |
Oh, dat zou kunnen, ik doe zelden iets met comboboxen.quote:Op donderdag 7 februari 2008 11:15 schreef DaFan het volgende:
VERT.ZOEKEN werkt niet in een dropdown (combobox).
Thanks! Ik zat ook te denken aan VB-codes, maar daar weet ik echt geen snars van af...quote:Op donderdag 7 februari 2008 14:58 schreef Frollo het volgende:
Met de hand erop schrijven.
Whehe, ik ga even zoeken, brb.
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |