tıkla ve Kopyala

[RIKU]

Arkadaşlar ekteki dosyada bir maruzatım var ama bilemiyorum böyle birşey olur mu?

 

[Zeki Gürsoy]

http://www.excel.web.tr/showthread.php?t=16775

 

[Korhan Ayhan]

Selamlar,

Sorunuzu dosya içerisinde değilde başlığınızın altında sorarsanız daha faydalı olacaktır. Sorunuzla ilgilenmek isteyen arkadaşlar dosyanızı indirmek zorunda kalıyorlar bu durumda. Lütfen forum kurallarına biraz daha dikkat edelim.

Cevabınıza gelince aşağıdaki kodu işlem yaptığınız sayfanın kod bölümüne uygulayıp deneyiniz. Çalışma prensibi; verilerinizi süzün ve A sütununda aktarmak istediğiniz verinin yanına "X" yazın otomatik olarak aktarılacaktır. Umarım işinize yarar.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, [A2:A65536]) Is Nothing Then Exit Sub
    If UCase(Target) = "X" Then
    Sheets("Sayfa1").Range("A65536").End(3).Offset(1, 0) = Cells(Target.Row, "C")
    End If
End Sub

 

[RIKU]

Teşekkürler bir dahaki sefere dediğiniz gibi yapıcam.Dikkatsizliğime geldi pardon