Search results for query: *

Feedback My syntax my be a bit rough but as soon as I replaced the ";" with "," (Danish vs English excel formulas.) its all works. So it's all good and my boss is happy! So ones again thanks Combo, I owe you one.

Stupid Danish version of formulas in excel Thanks Combo!!!

Hello I at trying to make a macro that adds a formula into an excel worksheet by combining text and values from the worksheet. This works but will be inserted as text: Range("JusteretEndelig!A1") = "VLOOKUP(A1;[kIM" & Range("JusteretEndelig!g1") & ".xls]JusteretEndelig!$A$1:$G$11;7;FALSE)"...

Thanks Glenn That's exactly what I am looking fore. Got some miner problems. If anyone else is reading this its called INDIRECT.EXT It actually returns the right info from the link in the "function arguments" window but returns a #value! in the excel sheet. Is there any other plug-inds with...

Don’t get me wrong, I am really glad fore your relays, but my problem is not the link it self… I do know who to make a link and it works. I as wrote I can get a link in to a cell but it comes in as a text string and I have to manual update it by entering the cell and pressing enter or adding...

Thanks xlbo Range("Sheet1!B(i)") = "D:\Documents and Settings\New Folder\Range" & ("Sheet1!B1") & Range("sheet!B2") with B1 and B2 I'm trying to complete the link D:\Documents and Settings\New Folder\Range & workbook2 & sheet1!A1 The point is that i want to type in the link info in cell B1...

Hello Im trying to link to 125 other Excel files based on input from cells Sub Link() For i = 1 To ActiveWorkbook.Sheet.Rows.Count Range("Sheet1!B(i)") = "D:\Documents and Settings\New Folder\Range" & ("Sheet1!B1") & Range("Udtrækrapportpakker!B1") Next End Sub Im i totally off...

Humm wrong forum... trying agien :)

Hello Im trying to link to 125 other Excel files based on input from cells Sub Link() For i = 1 To ActiveWorkbook.Sheet.Rows.Count Range("Sheet1!B(i)") = "D:\Documents and Settings\New Folder\Range" & ("Sheet1!B1") & Range("Udtrækrapportpakker!B1") Next End Sub Im i totally off...

Thanks to the help on this forum i have made the following: Sub KlarTilUdskriftAlt() Sheets("Nøgl").Visible = False For i = 2 To ActiveWorkbook.Sheets.Count - 5 Set SheetMark = ActiveWorkbook.Sheets(i) If SheetMark.Visible Then...

Thanks Skip You are the man! some small info, dont use {} but () insted :)

Hello Can anyone help me out on this topic: I got a large Excel workbook and need to run it on some slow computers. Sheets("sheet1").Select Selection.AutoFilter Field:=1, Criteria1:="=" But I like to be able to use autofilter without selecting the sheet. Something like...

True, but if the cell only holds a number the macro can't run with the + for some reason

Kimed Thanks a lot Just some small info if anyone need it :) ActiveSheet.PageSetup.LeftFooter = "&""Arial,Bold""&10" + Range("sheet1!b3") Replace the + at the end with "&O" & My client numbers, in the footer, starts with a 07 so Excel add it to the font size = huge And ones more thanks :)

OMG Love you all /hug

Hay Skip Yes that sounds like a good ideér, but its not possibel to only edit the font size, Excel also rewrite the text in the footer in the same line. So if I need to get the info from a cell and then edit the font size I can't seem to make to work.

Thanks Skip Damn that was fast :P Now I only need to find out how to edit the font size on the footer and my boos won't kill me :)

Hello I'm having 3 problems and hoping to find some help here. I'm trying to move info from one cell to another or the footer 1. Set Range("sheet1!A1") = Range("sheet2!b2") Don't seem to work, any ideér's? 2. ActiveCell.FormulaR1C1 = "=sheet1!A1" This result in A1 = "=sheet1'!A1'", any way...