Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations TouchToneTommy on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Recent content by MrsMope

  1. MrsMope

    MS Access 97; tab between open queries

    Hello, I am in MS Access 97 and I have three simple query windows open. I want to be able to ALT + TAB to each query, but that doesn't work. Any idea how to get that same functionality in 97? Thanks,
  2. MrsMope

    Returning a date from VBA Function

    Hello, I am using MS Excel 2002, I want to add one day to a date using the DateAdd function. So I have the following: Function Add_A_Day(CellValue As Date) Dim LDate As Date LDate = DateAdd("d", 1, CellValue) End Function In the cell I want to contain the new value I have...
  3. MrsMope

    .txt to Excel- Naming

    I ended up using the .GetOpenFileName method in VBA. Thanks for the help
  4. MrsMope

    .txt to Excel- Naming

    No I haven't I will take a look at it. Thanks, RB
  5. MrsMope

    .txt to Excel- Naming

    Sub ImportExcel_Staff() ' ' ImportExcel_Staff Macro ' Macro recorded 12/4/2006 by Rayna Brandt ' ' Keyboard Shortcut: Ctrl+Shift+S ' ChDir "V:\FGS\Data_ARCHIVE\DataOUT" Workbooks.OpenText Filename:= _ "V:\FGS\Data_ARCHIVE\DataOUT\FGSClaimStaff_20061204_072051.txt", Origin:=437 _...
  6. MrsMope

    .txt to Excel- Naming

    Hello to all, I have read the previous posts about using the macro recorded to import a text file into excel. My question is, what if the file is not the same name every time? how do I code that? Thanks, RB
  7. MrsMope

    Format/SubTotals

    Hi All, I need to take this: Curr Loc Location Name Social Security Number Class Description Coverage Tier Med Admin Cobra/HIPPA PPO Fee UR/CM Billed Amount Coverage Month Count 207 7005 IAD Doe,John A xxx-xx-xxxx FULL/EPO/PHCS e 13.7 1.75 6.75 2.75 24.95 08/2006 1 207 7005 IAD Doe,John B...
  8. MrsMope

    Copy from one cell to multiple cells in different column

    Thanks Skip, This is what I did: ElseIf .Value Like "" Then Else If TargetSheet.Cells(TargetRow, 1).Value = "" Or Null Then TargetSheet.Cells(TargetRow, 1).Value = TargetSheet.Cells((TargetRow - 1), 1).Value TargetSheet.Cells(TargetRow, 2).Value =...
  9. MrsMope

    Copy from one cell to multiple cells in different column

    Skip and all others, I have a question, here is what I have inserted into my loop: With SourceSheet.Cells(SourceRow, 1) If .Value Like "Group*" Then TargetSheet.Cells(TargetRow, 1).Value = Mid(SourceSheet.Cells(SourceRow, 1).Value, 12, 6) ElseIf .Value Like "*PREMIUM*"...
  10. MrsMope

    Copy from one cell to multiple cells in different column

    Thanks Skip, I will try this out tonight and let you all know ! Thanks, RB
  11. MrsMope

    Copy from one cell to multiple cells in different column

    Skip and all others, The format I want the file to end up in is: Group Number Service Code Sell Price 211111 21 3206.25 211111 22 7425 211111 58 4556.25 211111 125 7.64 211111 CFN -15,187.50 211111 COM 15,187.50 So what I have so far is: Public Sub CopyRows() Dim SourceSheet As Worksheet...
  12. MrsMope

    Copy from one cell to multiple cells in different column

    Skip, That is the most fantastic idea! Thanks so much, I wouldn't have thought of that. I will try it and post any issues. Thanks, RB
  13. MrsMope

    Copy from one cell to multiple cells in different column

    Hello all, I have a really ugly text file that I must get into a usable format in excel. First here is a sample of the data: BILLI NG CODE SUMMARY FOR CITY Bi lled fro m 05-01- 06 To 05-01-06 PAG E 1 Grou p : 211111 Company ABC 6/23/2006 10:07 2006...
  14. MrsMope

    Sum(if a3=a2 and d3=d2)

    Thank- you that was exactly what I needed!
  15. MrsMope

    Sum(if a3=a2 and d3=d2)

    Hi, What I want to do is sum values in a column if the policy number ( stored in one column) and the service code (stored in another column) are the same, if not I don't want want to sum it, I want to start a new sum IF Cell A2= a1, if c2= c1, L2= d2+d1, " " Here is a sample of data: a...

Part and Inventory Search

Back
Top