Excel Verileri Başka Sayfaya Gönderme

[efe86]

S.a arkadaşlar

Denedim ama zaten az olan excel bilgim buna müsade etmedi :S

Yardımcı olabilecek arkadaşlara şimdiden çok teşekkürler

Bir buton yapmak istiyorum ismi formu sıfırla
Buradaki formu sıfırla butonuna bastığımda bütün tıklamalarım silinecek form tekrar doldurmaya hazır olacak

Birde formu gönder butonu hazırlamak istiyorum

Bu butona tıkladığımda ise formdaki puan sayfa 1 deki ilgili kişinin alanına gidecek hem puan hemde yapılan değerlendirme sayısı eklenecek

Yani her gönderilen form değerlendirme sayısına +1 olarak eklenirken

Her görüşme puanıda kişinin puanına eklenecek.

 

[efe86]

Arkadaşlar konu ile ilgili yardımcı olabilecek varmı

Hiçbir işimi yapamıyorum suan tüm çalışmalarım bu forma bağlı

 

[efe86]

Arkadaşlar konu ile ilgili bir şey yapmak mümkün değilse yani düşündüğüm tarzda bir sistem olmuyorsa bilgi verebilirmisiniz.

 

[Murat OSMA]

Şu kodu KK Sayfasının kod kısmına yazıp deneyiniz;

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim i As Object
    Dim Evn As Range, a As Range
    Dim say As Byte
    
    If Target.Address(0, 0) = "K10:L10" Then
        For Each i In ActiveSheet.DrawingObjects
            i.Value = False
        Next i
    End If
    
    If Target.Address(0, 0) = "K21:L21" Then
    Set Evn = Sayfa2.Columns(1).Find(Range("B2").Value, , , xlWhole)
    If Not Evn Is Nothing Then
        Evn.Offset(0, 2).Value = Sayfa1.Range("I21").Value
    End If
    say = 0
    For Each a In Sayfa1.Range("I5:I19")
        If a.Value > 0 Then
            say = say + 1
            Evn.Offset(0, 1).Value = say
      End If
     Next a
     End If
   say = Empty: Set a = Nothing
   Set Evn = Nothing: Set i = Nothing
End Sub

 

[efe86]

Merhaba dediğiniz şekilde yaptım ancak hiçbir değişiklik olmadı

Konu ile ilgili yardım edebilecek kimse varmı