Microsoft Excel VBA Macro

[oODeathNoteOo]

---

Guys,

I am still learning this one...could you please help me out with how to output the result to the next worksheet...

I have this one and it outputs the data on the active worksheet sheets (1) then the next data is encoded on the next column :

Private Sub OKCommandButton1_Click()

Dim emptyRow As Long

'Make List Active
Sheets(1).Activate

'Determine emptyRow
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1


'Export Data to worksheet
Cells(emptyRow, 1).Value = ActivityNameTextBox.Value

If ActivityCheckBox1.Value = True Then Cells(emptyRow, 2).Value = ActivityCheckBox1.Caption
If ActivityCheckBox2.Value = True Then Cells(emptyRow, 2).Value = Cells(emptyRow, 2).Value & " " & ActivityCheckBox2.Caption

...

[abaca]

what is the problem?

[fcipriano]

You should know the worksheet index (name, or value) inorder for you to output it to the another sheet. ex:

'Sheet1
''whatever you select on a drop down in sheet1 will appear inf sheet2

sheet2.range("A1").value2=sheet1.combobox.text

[jryan]

Try this one bay...

ActiveWorkbook.Sheets("Sheet2").Cells(1, 1).Value = "Look Mom! No Hands!"

Instead of ActiveWorkBook you could use a specific Opened Workbooks instead like
Workbooks("Your_Workbook_Name.xls").Sheets("Your_T arget_Sheet").Cells(Row_Num,Column_Num).Value

Hope it helps.

[KillMe]

Try this one bay...

ActiveWorkbook.Sheets("Sheet2").Cells(1, 1).Value = "Look Mom! No Hands!"

Instead of ActiveWorkBook you could use a specific Opened Workbooks instead like
Workbooks("Your_Workbook_Name.xls").Sheets("Your_T arget_Sheet").Cells(Row_Num,Column_Num).Value

Hope it helps.

This one should work. You can always omit the ActiveWorkbook if your macro resides on it.

[poche]

i dont get ur prob bro..but try this..

as kill me said, no need multiple declaration of your open workbook bcoz i quess you dont need to open another workbook9in you case)..especify only the name of the sheets..examine below if it is correct or basin duol2x na..LOL

ActiveWorkbook.Sheets("Sheet1").Cells(1, 1).Value = ActiveWorkbook.Sheets("Sheet2").Cells(1, 1).Value