Search results for query: *

Thanks a lot! This is exactly what I need. And it seems very easy. Regards

Sorry... dtb=database, meaning table in Access database There is no relationships between these two tables (I mean no common id). Shortly speaking I need to update the field 'class' depending on which class it belongs (basing on range 'from' - 'to') The code for small numbers of classes...

Hi, I would like to update my dtb (in Access) on class information. The database looks like that: nr_sim Euler_id EL_Gross class 3172 15013729 13452345 3167 15297205 234514 3169 96873838 1345 3173 70984066 25134 3170 70584807 123 3168 70816660 235134 3171 70282458 1452145 3173 70941751...

Hoping that someone help me... I would like to compact database in the middle of running a code in VBA. Is it possible to compact dtb using VBA under the same Access database? For example: sub t() For i = 1 To 999 DoCmd.RunSQL "blabla" Next ' ! here I would like to put a code to compact...

In properties window in VBA "sheet1" has status: Visible 0 xlSheetHidden And I want to get status: Visible -1 xlSheetVisible If I want to change it I get the messagage that it's not possible. I think it might be a protection for it. So as result "sheet1" is not visible from Excel...

Hi, I have problem with making sheets visible. I can't see them in Excel, but in VBAProject there are exist. When I try to change status for xlsheetvisible (in properties) I get message: Setting properties is not possible...

Thanks a lot!

In first cell I have: =(A1+B1+C2*C1)/D2+D1 -> I want: =(A1+B1+C2*C1) In second cell I have: =(E1+B1-E2)/D2-F1+D2*C2 -> I want: =(E1+B1-E2) In third... In each cell can be different formula, so I cant and this I want to achive. The result should be a piece of given formula until the character...

I know it:) But I want doing this automatically by dragging a formula to fill in that many rows. Each cells can have different formula... Maybe it should be as function in VBA...

How to cut a formula from cell? I mean not whole formula, but piece of formula. For example I have formula like this: =(B17-0,5*B21-0,5*B23)/(Model!M11*60%) and I want automatically get a piece formula until the "/" sign (but without this sign). So the result should be: =(B17-0,5*B21-0,5*B23)

Hi, I'd like to create list box and use multi option, which is only useful when you are using VBA procedute. How to use this procedure? Here you are link describing it: http://support.microsoft.com/kb/291073/ (see 'Note' about VBA) Regards

ok, but still the same problem. I can't open any file.

hi, Why does this code work in Excel 2000 and doesn't work in Excel 2007? VBA shows runtime error '1004' at line: Set Wb = ExApp.Workbooks.Open(nextfile, 0) Sub h() directory = ThisWorkbook.Path & "\" Dim ExApp As Excel.Application Dim Wb As Workbook Dim nextfile As String Dim myfile As...

Thanks:) It works well. Anyway what do you recommend?

Hello! How to trim each cell in chosen selection? I mean... how to use this code: Cells(10, 1) = Trim(Cells(10, 1)) in each cell of selection? Regards

Golom, second code works:), but I'm wondering why in first code error occurs: Invalid procedure call or argument on Debug.Print fld.Files(i).Name It can be useful if you want do sth with ie file(3)

But I have still some problems. How to get in this code name of each file? Sub SearchF() Dim fso As New FileSystemObject Dim fld As Folder, f As File Dim path As String, i As Long path = "E:\Dane\Tym\" Set fld = fso.GetFolder(path) For i = 1 To fld.Files.Count...

Thanks:)

The same error on With Application.FileSearch

Set fs = Application.FileSearch