Read or Get Data from Worksheet Cell to VBA in Excel

I want continue number from A1 to A10 but only while am typed in B1 to B10 like
A1 1 Magesh
A2 2 Kumar
A3 3 Sathish
A4
A5 4 Raja
A6 5 Ram
A7 6 Raju
A8 7 Samy

A9 8 Prabu
A10 9 Raja

A11 10 Magesh

how to put this number alternately in Ms Excel 2007 using VBA.

with regards,
Magesh

Hi,

This information is really helpful; I have one question:
1. I want to read the data from cell(i.e sheet2-Row1)
2. It has to read Unique record from Row1
3. It has to give count in sheet1 as summary based on criteria

Regards
Praveen

how to read data from a any random selection

I want to read all the rows from a cell in one sheet and compare with all the rows in other cell in another sheet and each rows should be compared and it is a string value present in the rows..please help me out in this.

Hi Tsuna,
The following code will get the values from 5 different sheets to 5 different text boxes:

TextBox1.Value=Sheets(“Sheet1”).Range(“A5”)
TextBox2.Value=Sheets(“Sheet2”).Range(“A5”)
TextBox3.Value=Sheets(“Sheet3”).Range(“A5”)
TextBox4.Value=Sheets(“Sheet4”).Range(“A5”)
TextBox5.Value=Sheets(“Sheet5”).Range(“A5”)

Thanks
PNRao!

hi
i want to create a bottom when pressing, the data of the current sheet transfer to my matrix in my program,is it possible?
how?
thanks in advance.

Hi,

I am looking to write a script in excel to get the data from one sheet to another sheet in different way.

eg: input

emp m1 m2 m3 m4
abc 1 2 3 4
def 5 6 7 8
ghi 9 10 11 12

ouput should be like the below :

emp
abc 1 m1
abc 2 m2
abc 3 m3
abc 4 m4
def 5 m1
def 6 m2
def 7 m3
def 8 m4

like wise there are “n” number of emps..

Please help.

Thanks
Sarika

Can you Help me to write a code to arrange the letters like below.

Lets say if my input is 01234567890 – then the result has to be 34567890.012 and vice versa.

But the program has to read the input from excel sheet automatically if I entered 1000 value in A column.

i want to open a browser windows in excel sheet . how will i open??

Hello everyone,

I have an excel master sheet that is created for every customer filename will change each time, the workbook layout is the same. I would like a macro to import some of the information from the master sheet, I have 3 sheets in the workbook, from each sheet I would need to copy few cell data (any range would be fine, i will change that to fit by needs) to a new workbook. I would like the macro button also to move down each time the new data is imported. New Workbook data range paste to A2:D2, next A3:D3 and so on. Below is the code i have so far.

Thank you in advance,

This is the Code I have.

VB:
Sub Foo()
Dim vFile As Variant
Dim wbCopyTo As Workbook
Dim wsCopyTo As Worksheet
Dim wbCopyFrom As Workbook
Dim wsCopyFrom As Worksheet

Set wbCopyTo = ActiveWorkbook
Set wsCopyTo = ActiveSheet
‘————————————————————-
‘Open file with data to be copied

vFile = Application.GetOpenFilename(“Excel Files (*.xl*),” & _
“*.xl*”, 1, “Select Excel File”, “Open”, False)

‘If Cancel then Exit
If TypeName(vFile) = “Boolean” Then
Exit Sub
Else
Set wbCopyFrom = Workbooks.Open(vFile)
Set wsCopyFrom = wbCopyFrom.Worksheets(1)
End If

‘————————————————————–
‘Copy Range
wsCopyFrom.Range(“b5”).Copy
wsCopyTo.Range(“a2”).PasteSpecial Paste:=xlPasteValues, _
Operation:=xlNone, SkipBlanks:=False, Transpose:=False

‘Close file that was opened
wbCopyFrom.Close SaveChanges:=False

End Sub

How to retrieve a particular percentage of value(ex:get only 20% of data from sheet i.e out of 20 users,we need only 4 users name to be displayed) from excel sheet using macro?

Hi PNRao Sir,
In the above example by you i am able to find only 1 data in excel sheet, i need to find many data in excel sheet so how will be do this can you please help me this
If there are many data in excel sheet in need to find all data from Sheet In Particular TextBox

I have a excel file contains in the cell AI one, A2 two, A3 three,… I want to copy the value in another excel one in the sheet1 cell A1, two in the sheet2 cell A1, three in the sheet3 cell A1,…

I would like the macro button which is importe new data from sheet1 and paste on sheet2 A2:D3 but when new data inserted in sheet1 the range of sheet2 will be A3:D3 and so on.

i have excel sheet need to create sub menus , when select value its creates sub menu , when select value its generate another menu with formulas & conditions

i have problem: i have sheet “abc”, in sheet “abc” have colum A
A1=”NG”
A2=”Ok”
A3=”NG”
.
.
A7=”OK”
.
.
I want count num “NG” in sheet A
Plz Help me!!

Hi Vali,

You have provided quite insightful answers to all questions posed, please help me with mine:
This is the rudimentary format for my excel:

Name Place Gender Date occupation
Arthur UK Male 16-4-78 Carpenter
Mason
Plumber
Brad USA Male 5-10-80 Teacher
Charlie Poland Male 13-8-69 Painter
Singer
Editor

I’m trying to export this to a text file the result of which should look like this:

Arthur UK
Gender: Male
Date: 16-4-78
Occupation: Carpenter, Mason, Plumber

Brad USA
Gender: Male
Date: 5-10-80
Occupation: Teacher

Charlie Poland
Gender: Male
Date: 13-8-69
Occupation: Painter, Singer, Editor.

have searched high and low, but in vain.

The actual excel on which I’m working consists of 11 Columns, and have to deal with 300 to 350 rows at a time, which is a cumbersome task.

Please help me with this.

Hi, I want to add data from cells to an inputbox, do you have any clue on how to do that?
thanks in advance!

Rutger

Ok. So this problem is getting on my nerves for some time now. I made damage calculator using macros. Works pretty good. Now I want to add temporary hit points into account.
Let’s say it looks like this:

DMG TotalDMG TempHP HP
2 3 7 24

So, basicaly, I need to deplete TempHP first and with every dmg calculation to see if there is any TempHP left. So with every calculation I need to check the value of TempHP cell and DMG cell, then do TempHP – DMG (7-2) and the result should be new TempHP value (5). And when DMG is bigger than TempHP do the following: HP – (DMG – TempHP) and set TempHP to 0.

Thanks in advance.

Hi,

I want to select the data and month from the Date in cell(a1)(containing formula) and file 2016-06-07 ABCD should be opened using that date and month.

Thanks

Dear Sir,

I have some ComboBox – 8No’s and TextBox -40No’s in Sheet1 and our employee details (Emp.ID, Name, Date of Birth, Email, Contact Numbers) in Sheet2. I need to display employee id in Combobox 1 to 8 and when i select anyone employee id in ComboBox then his all details wants to display other Testboxes in Sheet1 as per below. But (Sr.No) not in Sheet2 database. Anyway i need to display when i select second Combobox, then Sr.No wants to display number-2 automatically. Kindly anyone give a solution to solve my query.

Sr.No Emp. ID Name Date of Birth Email Contact No.
1 1201 AAAAAAAA1 12/12/1980 dfs 1111111111
2 1202 AAAAAAAA2 12/13/1980 dfs 1111111112
3 1203 AAAAAAAA3 12/14/1980 dfs 1111111113
4 1204 AAAAAAAA4 12/15/1980 dfs 1111111114
5 1205 AAAAAAAA5 12/16/1980 dfs 1111111115
6 1206 AAAAAAAA6 12/17/1980 dfs 1111111116
7 1207 AAAAAAAA7 12/18/1980 dfs 1111111117
8 1208 AAAAAAAA8 12/19/1980 dfs 1111111118

Hi, this is wonderful platform and thank you all for yours comments! I’m pretty new in VBA and I’m finding this very helpful. Supposing I have excel file that has huge informations capture in it and these informations could be actions, time the action was done, number of actions performed for several users and are all ranged columns per user. How should write a script to extract this data based on those that user performed with <3 minutes, compute totals number of actions done by all user in specific time slot, categories the number of activities done in range of <2,3-4, 4< time difference. I will be very delighted.

Dear All how can I get the value in spread sheet (for example day and month) and use it as reference value to plot the point in VBA?
Can you please explain it??

Hi,
I am trying a scenario in which I have a Mini Invoice and my requirement is to save the data of the invoice and need to retrieve the saved data based on Invoice Number. I request to help me in this scenario giving the desired code.
Thanks in advance.

Hello, I have Category in column A and number of teams in column B and I already can create automatically worksheets with the names on column A, but now I want to paste on each new worksheet the data corresponding to the number of teams in column B.

I already named the ranges so whenever I have e.g. 6 on column B , I just need to select data range _6 and paste it on A1 on the new worksheet.

Can you tell me how to code this?

Thanks in advance!

Hi Master,
Please let me know how to call the sub i made as :

Sub Sumbycolorto(range_data As Range, ByVal range_tosum As Range, ByVal range2_tosum As Range, ByVal range_toset As Range, criteria As Range)
Dim datax As Range
Dim xcolor As Long
Dim isi As Long
xcolor = criteria.Interior.ColorIndex

For Each datax In range_data
isi = Cells(datax.Row, range_tosum.Column) + Cells(datax.Row, range2_tosum.Column)
If datax.Interior.ColorIndex = xcolor Then
Cells(datax.Row, range_toset.Column) = range_tosum.datax.Row + range2_tosum.datax.Row
End If
Next datax
End Sub

Sub Run_click()
‘ How to call ? Sumbycolorto ???
End Sub

Can any one show me how to write a macro which reads values from a sheet with two columns consisting of dates and numerical values and calculates slope from these values but writes value of slope and date when slope changed from positive to negative and visa versa and ignore all values and not write only the date and slope at slope change only.
Your input is appreciated.
Naem

I have name of company in Column one with entries Employees name, salary, phone number in next column.
The name of the company in first column repeats.

I dont want the name of the company again and again. Only other entries like Employees Name, salary and phone number in new sheet.
The Company name should appear once, rest all cells for same company must remain empty.

Please suggest.

Dim strCycle As String, i As Integer, trgSheet As String, sht As Worksheet
With Sheets(“Run”)
i = 2
For Each sht In Sheets
If sht.Name “Run” Then
sht.Delete
End If
Next

Do While True
strCycle = .Cells(i, 1)
If Len(Trim(strCycle)) = 0 Then Exit Do
If strCycle = “All” Then
trgSheet = “All_Summary”
LoadDetail srcJIRAFile, “select LEFT([Test Summary],INSTR([Test Summary],’_’)-1) as EPIC_ID, x.* ” & _
“from [Sheet1$] x WHERE Step=’Step1′”, trgSheet
Else
trgSheet = strCycle & “_Summary”
LoadDetail srcJIRAFile, “select LEFT([Test Summary],INSTR([Test Summary],’_’)-1) as EPIC_ID, x.* ” & _
“from [Sheet1$] x WHERE Step=’Step1′ and CycleName in (‘” & strCycle & “‘)”, trgSheet
End If
ThisWorkbook.Save

LoadDetail ThisWorkbook.FullName, “select x.* from [” & trgSheet & “$] x,(SELECT [Test Summary], MAX(date+time) as dt” & _
” FROM [” & trgSheet & “$] group by [Test Summary]) t where ” & _
” x.[Test Summary]=t.[Test Summary] and (x.date+x.time)=t.dt”, strCycle & “_Snap”

If strCycle “All” Then

LoadDetail ThisWorkbook.FullName, “TRANSFORM COUNT(*) select EPIC_ID ” & _
“FROM (Select Status,EPIC_ID from [” & strCycle & “_Snap$] UNION ALL ” & _
“Select ‘Total’ as Status,EPIC_ID from [” & strCycle & “_Snap$]) group by EPIC_ID PIVOT Status”, strCycle & “_Status”
End If
If strCycle = “All” Then
LoadDetail ThisWorkbook.FullName, “TRANSFORM COUNT(*) select CycleName ” & _
“FROM (Select Status,CycleName from [” & strCycle & “_Snap$] UNION ALL ” & _
“Select ‘Total’ as Status,CycleName from [” & strCycle & “_Snap$]) group by CycleName PIVOT Status”, strCycle & “_Status”
End If

i = i + 1
Loop

End With

Application.ScreenUpdating = True
Application.DisplayAlerts = True

Hi – I am totally new to excel macro. I give below my macro. i would like to write the macro in one file and execute the same many times on the same day based on some criteria.

My data has City name, date of transaction and other data spread over a few columns .

1. I would like to select one file where the all transaction details are available. (Say AllData.xlsx).
2. City Name will be received as Input at Macro as variable

3. Need to select and open this file and read the contents row by row and write to another file -(Output File) (this file name to be generated into a variable like – OutputFileName = City Name + “Transactions Till ” + Yesterday Date + “.xlsx”. This file need to be created inside macro with the name assigned.

4. The data read in AllData should be one row in full (or column by column as you recommend) and based on the first column (city name) matching with City Name received as input.

5. If matching need to write on Output file one entire row.
6. Read Next Row from AllData and if matching write to Output file
7. Above process to be repeated till Last Record of AllData File.

I tried but not getting correct code. Request you to give me the code and help me asap.

Kumar S