Miten saadaan Excelin taulukkoa skrollattua VB:n avulla, tai siirrettyä näkymä aktiivisen solun kohdalle???
esim: Taul1.komento.param. jne.jne.
Kiitokset etukäteen
T:Pete
Moikka VeePee!
Jutska hoituu vaikkapa näin...
'Moduuliin Public osoite As String
'ThisWorkbook Private Sub Workbook_Open() UserForm1.Show(0) WorkSheets(1).Activate End Sub Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range) 'aktivoituva solu osoite = Target.Address osoite = Replace(osoite, "$", "") osoite = osoite & ":" & osoite End Sub Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If UserForm1.Visible = False Then UserForm1.Show(0) End If End Sub
'Formille Private Sub CommandButton1_Click() '--- 'esim. taulun viimeinen solu 'ActiveSheet.Range(Cells(ActiveSheet.Rows.Count, ActiveSheet.Columns.Count), Cells(ActiveSheet.Rows.Count, ActiveSheet.Columns.Count)).Select '--- ActiveSheet.Range(osoite).Show End Sub
Kiitokset, näin myöhässä. kesäkiireet painavat.
T:Pete
Aihe on jo aika vanha, joten et voi enää vastata siihen.