1 2 3 | End Sub |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | LastRowOrder = .Range("C65536").End(xlUp).Row Aantal = .Range("C" & LastRowOrder).Value Itemnr = .Range("A" & LastRowOrder).Value Stuknr = .Range("B" & LastRowOrder).Value End With With Sheets("Magazijn") LastRowMagazijn = .Range("A65536").End(xlUp).Row + 1 For i = LastRowMagazijn To LastRowMagazijn + Aantal .Range("A" & i).Value = Itemnr & "." & Stuknr & "." & Aantal .Range("B" & i).Value = 1 Next i End With |
Nog even terugkomen op jouw vraag, zie:quote:Op vrijdag 4 juli 2008 10:55 schreef Xith het volgende:
[..]
Maar de punten die ik wil 'verbergen' uit de grafiek zijn !VERW (verwijzing fout), ook met zo'n folmule:
=ALS(B27="#VERW!";"#N/A";B27)
Wilt het niet want zijn leest B27 niet als '#VERW!' maar als een formule, geloof ik...
Wat kan ik doen?
Ik hoor het graag!quote:Op maandag 7 juli 2008 13:00 schreef ArjenD11 het volgende:
Super! bedankt man, ik ga het verwerken en hoop dat ze blij met mij zijn...
1 2 3 | For i = LastRowMagazijn To LastRowMagazijn + Aantal |
1 2 3 | For i = LastRowMagazijn +1 To LastRowMagazijn + Aantal |
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 | Dim c As Range Dim ColumnTarget, InteriorColor As Integer Dim Kleur As Long ColumnTarget = Target.Column Kleur = 31 If ColumnTarget = 1 Then For Each c In Range("A:A") If c.Row = 1 Then Naam = c.Value c.EntireRow.Interior.ColorIndex = Kleur End If If c.Value = "" Then Exit Sub If c.Value = Naam Then c.EntireRow.Interior.ColorIndex = Kleur Else If Kleur = 31 Then Kleur = 37 Else Kleur = 31 End If c.EntireRow.Interior.ColorIndex = Kleur Naam = c.Value End If Next End If End Sub |
1 2 3 4 | Range("D" & i).Interior.ColorIndex = i Range("E" & i).Value = i Next i |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | Dim FileName As String Dim Tijd As String Tijd = Replace(Time, ":", ".") FileName = "C:\Ecel\Overzicht (" & Date & " " & Tijd & ").xls" If MsgBox("Wil je het document opslaan als: " & FileName & "?", vbQuestion + vbOKCancel, "Opslaan?") <> vbOK Then Exit Sub End If Activesheet.SaveAs FileName:=FileName End Sub |
1 2 3 4 5 | ActiveWorkbook.SaveAs Filename:= FileName, FileFormat:= _ xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _ , CreateBackup:=False |
Waarom zou je excel willen gebruiken voor een t-toets als je het met spss kan doen? SPSS kan stukken meer (en ik kan ik meer meequote:Op dinsdag 15 juli 2008 12:25 schreef PietjePuk007 het volgende:
Bestaat de one-sided-t-test niet in Excel? Oftewel gewoon 1 rij data en kijken wat de kans is dat de afwijking tov van 0 door toeval komt.
Alle t-toetsen in excel hebben 2 rijen data nodig (in SPSS bestaat ie wel).
Ik had ondertussen het volgende gevonden, wat in ieder geval werkt:quote:Op donderdag 10 juli 2008 15:16 schreef DaFan het volgende:
BierKoning, ik weet het niet. Bij mij werkt het gewoon, hoe ik het ook toevoeg....sorry ;(
Ruben probeer dit eens:
[ code verwijderd ]
Zomaar ergens van een forum geplukt, dus geen credits voor mij (als het uberhaupt al werkt).
1 2 3 4 5 | ActiveWorkbook.SaveAs FileName:=FileName, _ FileFormat:=xlNormal, Password:="", WriteResPassword:="", _ ReadOnlyRecommended:=False |
Je bedoelt via de ALS functie #N/A in de cel laten schrijven?quote:Op donderdag 24 juli 2008 12:52 schreef DaFan het volgende:
Maak er #N/A van dan slaat Excel ze over.
Forum Opties | |
---|---|
Forumhop: | |
Hop naar: |
Dat begrijpen we, maar is wel erg jammer. Je kunt FOK! namelijk wel gratis LEZEN, maar we kunnen FOK! niet gratis MAKEN. De inkomsten van de advertenties zorgen ervoor dat we de kosten van de site kunnen dragen zodat je ook morgen FOK! nog kunt bezoeken.
Zou je willen overwegen om voor FOK! een uitzondering te maken in je adblocker (of andere middelen die onze ads blokkeren)? Je krijgt deze melding dan nooit meer te zien.
Ja, ik wil fok.nl whitelisten, laat me zien hoe
Ik neem liever een premium account zodat ik geen advertenties hoef te zien (je moet eerst inloggen)
Ja, breng me naar de shop