Makrodaki emirleri Sayfa2 ye kaydettirmek.

[kaleci]

Merhaba Arkadaslar,

Modul1' e ikitane makro yazdim. Sayfa1' e 1 tane SpinButton ekledim. Moduldeki Makro ismini (test1 ve test2) yi Spinbuttonun icerisine yazdim. Asagidaki gibi. SpinButtona tikladigim zaman (test1 isimli kodun emirleri) Sayfa1 kaydediliyor.
Benim sorum test1, Sayfa1'e. Test2 Sayfa2'ye kaydedilsin. Test2 yi Sayfa2'ye kaydettirmem icin ne yapilmasi gerekiyor.

Private Sub SpinButton1_Change()
test1
test2
End Sub

Sub test1()
Dim i As Integer
On Error Resume Next
For i = 1 To 5
Cells(i, 1).Interior.ColorIndex = i
Cells(i, 2).Value = "Exel"
Next i
End Sub

Sub test2()
Dim i As Integer
On Error Resume Next
Set s1 = Sheets("Tabelle2")
For i = 1 To 5
Cells(i, 1).Interior.ColorIndex = i
Cells(i, 2).Value = Cells(i, 1).Interior.ColorIndex
Cells(i, 3).Value = "deneme"
Next i
End Sub

Saygilarimla
kaleci

 

[alpi]

Test2 için aşağıdaki kodu yazın

Sub test2()
    Dim i As Integer
    For i = 1 To 5
        With Sheets("Tabelle2")
            .Cells(i, 1).Interior.ColorIndex = i
            .Cells(i, 2).Value = Cells(i, 1).Interior.ColorIndex
            .Cells(i, 3).Value = "deneme"
        End With
    Next i
End Sub

 

[Mahmut Bayram]

Başka bir alternatif ise Test1 ve Test2 kodlarınızın başına

Sheets("SayfaAdı").Activate

Sayfanızın adını yazarak o sayfayı aktifleştirebilirsiniz.

 

[kaleci]

Sayin alpi ve Partner,

Her ikinizede tesekkür ederim. Asagidaki gibi yazdim ve düsündügümüz gibi kod calisti.

Sheets("Sayfa2").Activate


Sayin arkadaslar SpinButton Sayfa1 de. Sayfa1 benim "Anamenü" sayfam. SpinButtona tikladigim zaman test2 nin emri sayfa2 ye kaydediliyor ama kayit bittikten sonra sayfanin görünümü, sayfa1 den sayfa2 ye geciyor.
Ben devamli sayfa1' de calistigim icin görünümün sayfa1 de kalmasini istiyorum. Istedigim zaman sayfa2 ye bakmak istiyorum. Kayittan sonra otomatikmen sayfa2 ye atlamasin.
Bunu nasil cözeriz.

Saygilarimla
kaleci

 

[Mahmut Bayram]

Test2 deki kodlarınızın sonuna

Sheets("Sayfa1").Activate

yazarsanız tekrar çalıştığınız sayfaya dönecektir.
yani

Sub test2()
Dim i As Integer
On Error Resume Next
Set s1 = Sheets("Tabelle2")
For i = 1 To 5
Cells(i, 1).Interior.ColorIndex = i
Cells(i, 2).Value = Cells(i, 1).Interior.ColorIndex
Cells(i, 3).Value = "deneme"
Next i
[b]Sheets("Sayfa1").Activate[/b]
End Sub

 

[kaleci]

Sayin Partner,

Yardimlarinizdan dolayi tesekkür ederim. Simdi daha rahat calisabiliyorum.
Calismalarinizda basarilar dilerim.

Saygilarimla
kaleci

 

[Mahmut Bayram]

Yardımcı olabildiysek ne mutlu.