Aktar butonu

[manisali50]

Arkadaşlar tekrar merhaba..
Korhan üstadımızın yardımlarıyla oluşturduğum dosyamda bulunan AKTAR butonu,o sayfadaki bilgileri diğer sayfalara aktarıyordu..Dün bir yenilik eklemek istedim ve bu aktar butonunu sayfanın aşağılarına doğru kaydırtmayı başardım..Ancak bu sefer de şöyle bir sorun çıktı..Buton aşağıya kayıyor ama aktarma işini görmüyor..AKTAR butonuna bastığımda "Private Sub CommandButton1_Click()" uyarısı çıkıyor..(Tezgah sicil kartı ve arıza bildirim formu-User form1 isimli dosya)
Yine bu dosya içerisinde bulunan diyelim ki AZ1 sayfasında kayıtlı bulunan 1. SIRADAKİ arızalayı silmeye kalktığımda "Run time error 13 Type mismatch" uyarısı çıkıyor..(Tezgah sicil kartı ve arıza bildirim formu-User form2 isimli dosya)
Yardımlarınızı çok acil bekliyorum..
Şimdiden teşekkürler

 

[usubaykan]

Merhaba;

İlk dosyanızı açtığımda "Private Sub CommandButton1_Click()" olayını sonlandırmadığınızı gördüm. Yani kodunuzun bittiği yerde "End Sub" yok.

ve İkinci dosyanızda sayfaların kod bölümündeki kodunuzu

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$I$5:$Q$5" And Cells(Target.Row, "I") <> "" Then
    ActiveSheet.Name = Cells(Target.Row, "I")
    End If
End Sub

şeklinde deneyip tekrar kontrol ediniz.

 

[manisali50]

usubaykan kardeş..Çok teşekkür ederim..İkinci sorunum halloldu,çok sağol..Birinci sorunum ise büyük kısmı halloldu sanırım..Aktar deyince Private Sub CommandButton1_Click() satırı yine sarıya boyanıyor,Sheets(x).Activate satırındaki x ise mavi kutucuğun içine alınıyor..Ben şöyle değiştirdim,yanlış yapmış da olabilirim..

Private Sub CommandButton1_Click()
x = Sheets("Arıza bildirim formu").Range("K6").Value
End Sub
Sheets(x).Activate
sat = Sheets(x).Cells(29, "C").End(xlUp).Row + 1
Sheets(x).Cells(sat, 3) = Sheets("Arıza bildirim formu").Cells(6, 1)
Sheets(x).Cells(sat, 7) = Sheets("Arıza bildirim formu").Cells(21, 2)
Sheets(x).Cells(sat, 14) = Sheets("Arıza bildirim formu").Cells(28, 2)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
CommandButton1.Top = ActiveCell.Rows(1).Top

End Sub

 

[usubaykan]

Merhaba;

Private Sub CommandButton1_Click()
x = Sheets("Arıza bildirim formu").Range("K6").Value
[COLOR=Red]End Sub[/COLOR]
Sheets(x).Activate
sat = Sheets(x).Cells(29, "C").End(xlUp).Row + 1
Sheets(x).Cells(sat, 3) = Sheets("Arıza bildirim formu").Cells(6, 1)
Sheets(x).Cells(sat, 7) = Sheets("Arıza bildirim formu").Cells(21, 2)
Sheets(x).Cells(sat, 14) = Sheets("Arıza bildirim formu").Cells(28, 2)

işaretli olan yere değil.

Private Sub CommandButton1_Click()
x = Sheets("Arıza bildirim formu").Range("K6").Value
Sheets(x).Activate
sat = Sheets(x).Cells(29, "C").End(xlUp).Row + 1
Sheets(x).Cells(sat, 3) = Sheets("Arıza bildirim formu").Cells(6, 1)
Sheets(x).Cells(sat, 7) = Sheets("Arıza bildirim formu").Cells(21, 2)
Sheets(x).Cells(sat, 14) = Sheets("Arıza bildirim formu").Cells(28, 2)
[COLOR=Blue]End Sub[/COLOR]

işaretli olan yere yazacaksınız.

 

[manisali50]

Arkadaşım okeydir..İlgine,bilgine ve emeğine teşekkür ediyorum..(Not : Teşekkürü biraz geç yazdım..Çünkü şimdi bakabildim.Bu yüzden özür diliyorum)

 

[usubaykan]

Arkadaşım okeydir..İlgine,bilgine ve emeğine teşekkür ediyorum..(Not : Teşekkürü biraz geç yazdım..Çünkü şimdi bakabildim.Bu yüzden özür diliyorum)

Rica ederim