Diğer Sekmeye Otomatik Veri Kaydetme

[_Kaos_]

Merhaba,

Excelde bir sekmede kayıtlı hücre dizisindeki verilerin (A1,B1,C1,D1) bir diğer sekmeye otomatik olarak olarak kaydedilmesini sağlayabilir miyim?

Şöyle ki http://i.hizliresim.com/XkvP5o.png

Ürün kısmında DSL yazanların alttaki DSL sekmesine otomatik olarak kaydedilmesini sağlamanın bir yolu mevcut mudur?

 

[Orion1]

Örnek dosya linklerseniz daha hızlı yanıt alabilirsiniz.

 

[_Kaos_]

http://s3.dosya.tc/server8/3m7czw/ORNEK_PIO_RAPOR.xlsx.html

Örnek dosyayı yükledim.

Şubat 2016 sekmesinde yer alan verilerin ÜRÜN sütununda DSL yazanların DSL sekmesine PSTN yazanların PSTN sekmesine TİVİBU yazanların TVİBU sekmesine otomatik olarak kaydedilmesini istiyorum. Bunu yapabilir miyiz?

Çok teşekkürler ilginiz için.

 

[Orion1]

Sayfadaki butona basınız.
Dosyanız linktedir.

DOSYAYI İNDİR

Sub aktar59()
Dim sh As Worksheet, sonsat As Long, sat As Long
Dim i As Long
Sheets("ŞUBAT 2016").Select
Sheets("DSL").Range("A2:M" & Rows.Count).ClearContents
Sheets("PSTN").Range("A2:M" & Rows.Count).ClearContents
Sheets("TİVİBU").Range("A2:M" & Rows.Count).ClearContents
Sheets("TAAHHÜT UZATMA").Range("A2:M" & Rows.Count).ClearContents
sonsat = Cells(Rows.Count, "D").End(xlUp).Row
Application.ScreenUpdating = False
For i = 2 To sonsat
    sat = Sheets(Cells(i, "D").Value).Cells(Rows.Count, "D").End(xlUp).Row + 1
    Range("A" & i & ":M" & i).Copy Sheets(Cells(i, "D").Value).Range("A" & sat)
Next i
Application.ScreenUpdating = True
MsgBox "Veriler aktarıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[_Kaos_]

Çok teşekkür ediyorum. Sabahtan beri uğraşıyorum bu kadar karmaşık olabileceği aklıma gelmemişti. Elinize sağlık.

 

[Orion1]

Çok teşekkür ediyorum. Sabahtan beri uğraşıyorum bu kadar karmaşık olabileceği aklıma gelmemişti. Elinize sağlık.

Rica ederim.
İyi çalışmalar.