Treba da dodaš još jednu kontrolu na formi u kojoj ćeš da biraš koji list unosiš.
Kod ostaje manje-više isti. Zavisno od unetog u tu kontrolu menjaš list. Npr. neka imaš kombo box sa nazivima listova.
Kombo možeš da popuniš u događaju OnLoad forme na sledeći način:
Code:
' Dodatak na postojeci kod
Dim sh As Worksheet
For Each sh In ThisWorkbook.Sheets
Me.cmbList.AddItem sh.Name
Next sh
Me.cmbList.Value = Sheets(1).Name ' Default
Sad na klik dugmeta OK izmeniš da se koristi izabrani list
Code:
Private Sub cmdOK_Click()
With ActiveWorkbook.Sheets(Me.cmbList.Text)
.Range("A1").Value = Me.TextBox1.Value
.Range("B1").Value = Me.ComboBox1.Value
End With
End Sub
[Ovu poruku je menjao Jpeca dana 25.07.2007. u 14:39 GMT+1]
Nije to loše Rembrante, samo što ne bi dodao još malo boje?