Search results

I have the following code that copies tables and i need to add a string on the new table that will be copied. ANy suggestions Set RsSOBP = CurrentDb.OpenRecordset("SELECT SOBP FROM RFG_Append;") strtable = " RsSOBP!SOBP " RFG = "RFG" 'create RFG tables Do While Not RsSOBP.EOF...

Any ideas? Dim c As Object Dim firstAddress As Variant Dim w As Excel.Worksheets For w = Worksheets(1) To Worksheets(24) With w.Range("d:d") Set c = .Find(What:="11200000") If Not c Is Nothing Then firstAddress = c.Address Do With c.EntireRow...

BAT 17 solutions works just fine. now its a matter of going through the whole workbook, finding all the sheets and validating the criteria. SHould i do an array? group them together?

I found it guys... thanks anyway... this is the way.. Columns("P:Q").Select Selection.NumberFormat = "#,##0.00"

I am creating Excel worksheets from my tables using VBA. My tables have numbers with the correct format. Single. standart, 2 decimals. on the sheets created i get just number with 2 decimals. how can i keep the correct formatting? thanks in advance...

i will give it a try my friend. Thank you so much for your help

thanks buddy you were right... it worked after changing the offset to find the empty cell

So you are telling me i have to search every single cell for the text i want? how do i test a range? how do i know where it ends? can u give me an example of the IF statement how it will be? thanks in advance..

it gives an error in excel about circular reference and the code stops there..

Is there a way to color rows of Excel sheet from Access? i did a search and on Excel forums but nothing. Anyone did somehting like that? for example is Column B has this text then color the whole row? any ideas? i found the code from cheating excel code but how do i condition so i dont...

the loop for the creation of the sheet works fine. the formula for the Sum doesnt work. .range is giving me an error but when i remove the dot its ok.. the sum doesnt work whatever i try. you want to explain to me what u are trying to do? is there any other way?

This is part of my SUb... this is one table only of the 24 i have in the database Dim xlApp As Excel.Application Dim xlSheet As Excel.Worksheet Dim xlWorkbook As Excel.Workbook Dim acQuery As QueryDef Dim objRST As Recordset Dim lvlColumn As Integer Dim i As Integer Dim f As Variant Dim...

i have several sheets and i do the following 1. i go to the last cell 2. then move 3 cells on the left 3. i want to do a SUM function there.. any ideas.. this is what i have so far... ActiveCell.SpecialCells(xlLastCell).Select ActiveCell.Offset(rowOffset:=3, columnOffset:=-3).Activate r =...

i tried the rows property it doesnt work.. this code tries to calculate it but there is an error #NAME on the field after execution.. r = ActiveCell.Activate ActiveCell.FormulaR1C1 = "=SUM(Q1:Q " & r - 1 & ")" any ideas?

the first case is exactly what i want... but how i define the "currentrow"?

The problem is that in order to put .Formula i need the range. the range is not static cause in every sheet the rows are more or less. so i offset 3 cells on the left and there is there a way to do sum withouth setting the cells... like do SUM from the cell i am to up u understand? i dont have...

Any ideas why this does not work? any suggestions? r = ActiveCell.Offset(rowOffset:=3, columnOffset:=-3) ActiveCell.FormulaR1C1 = "=SUM(R[" & -r & "]C:R[-1]C)"

Monilker... I va moved to the cell i want. How do i define the cells so i can do the sum function. Every sheet is different number of rows. so i always go to the last cell. offset 3 and do sum there. thanks

Thank you so much for the direction! You are right!

I am finding the last cell with data with the xlLastCell. from there i want to move 3 cells on the left and do a sum there. i know how to do the sum and i can get the code from excel. the problem is that am exporting different tables with more or less rows so the last cell with date is not the...