formülle sayfalara aktarma

[yasa007]

çalışma sayfasında açıklama vardır.

 

[Ömer]

Merhaba,

Fazla veri olan dosyada bu işlemi formül ile yaparsanız dosyanız da kasılmalar olur. Bu yüzden formül yerine makro kullanmanızı tavsiye ederim.

Ayrıca konuyla ilgili size link önermiştim.

http://www.excel.web.tr/f14/sayfalara-daoytma-t103301.html

.

 

[İhsan Tank]

çalışma sayfasında açıklama vardır.

neden farklı farklı konu açıyorsunuz bunu anlamadım
bu linkte açıklamalı şekilde bilgi verdim.
dosyanızın kasılacağınıda söyledim.

 

[yasa007]

makroluda olabilir ama siz yapmanız gerekiyor

 

[İhsan Tank]

makroluda olabilir ama siz yapmanız gerekiyor

merhaba
kitabınızın thisworkbook bölümüne

Option Explicit
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
If ActiveSheet.Name <> "ANASAYFA" Then
Dim ts, kaplan, trabzonspor
trabzonspor = MsgBox(ActiveSheet.Name & " Verilerini Aktarıyorum", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
kaplan = 2
Range("A2:F65536").ClearContents
For ts = 6 To Sheets("ANASAYFA").Cells(65536, "B").End(xlUp).Row
If Sheets("ANASAYFA").Cells(ts, "D") = ActiveSheet.Name Then
Cells(kaplan, "A") = Sheets("ANASAYFA").Cells(ts, "B")
Cells(kaplan, "B") = Sheets("ANASAYFA").Cells(ts, "C")
Cells(kaplan, "C") = Sheets("ANASAYFA").Cells(ts, "D")
Cells(kaplan, "D") = Sheets("ANASAYFA").Cells(ts, "E")
Cells(kaplan, "E") = Sheets("ANASAYFA").Cells(ts, "F")
Cells(kaplan, "F") = Sheets("ANASAYFA").Cells(ts, "G")
kaplan = kaplan + 1
End If
Next
MsgBox ActiveSheet.Name & " Verilerini Aktardım", vbInformation, "Bitiş"
End If
End Sub

bu kodu kopyalayın ve sayfalar arasında dolaşın verileri otomatik aktarsın.

 

[yasa007]

siz yapabilirmisiniz

 

[İhsan Tank]

siz yapabilirmisiniz

siz neden yapmıyorsunuz.

 

[yasa007]

denedim ama olmadı

anlamıyorum

 

[İhsan Tank]

anlamıyorum

gayet kolay
alt+f11 yapın kod bölümüne geçin
sol taraft bulunan Thisworkbook bölümüne verdiğim kodu kopyalayın sonra deneyin.
ilk kez makro kullanaraksanız makro güvenlik ayarlarını düşürmelisiniz
güvenlik düşürme 2003 için resimli tıklayın
güvenlik düşürme 2007 için resimli tıklayın

 

[yasa007]

denedim

aynen yaptım ama diğer sayfalara veriler gecmiyor

 

[yasa007]

eklermisiniz

gönderdiğim sayfayı düzeltip eklermisiniz

 

[İhsan Tank]

aynen yaptım ama diğer sayfalara veriler gecmiyor

diğer sayfalara tıkladığınız mı_?
ANASAYFA dışındaki sayfalara tıkladığınızda otomatik aktarıyor.
ben şu an deniyorum bir sıkıntı yok gayet güzel aktarıyor tamamını

gönderdiğim sayfayı düzeltip eklermisiniz

bu şekilde yaptığımda siz bir daha ki seferinde gene aynı şekilde yardım isteyeceksiniz.
öğrenin ve yapın kod gayet güzel çalışıyor

 

[yasa007]

gönderseniz bi şey kaybetmessiniz

 

[İhsan Tank]

gönderseniz bi şey kaybetmessiniz

doğru kaybetmem siz kaybedersiniz.
benden bu kadar başka yorum yok başka arkadaş sizin bir şey öğrenmenizi istemiyorsa kod'u kopyalasın ve versin. başarılar

 

[yasa007]

olmadı

teşekkürler ama sürekli denedim olmadı gerceği söylemek gerekirse sizin verdiğiniz makronun çalıştığına pek inancım yok

 

[Ömer]

teşekkürler ama sürekli denedim olmadı

Bu tür durumlar da, olmayan yada hata aldığınız dosyayı eklerseniz, hata almanızın yada neden olmadığının açıklamasını yapmamız kolaylaşacaktır.

----------------------------------------------------------------------------------

Dosyanız ektedir.

AnaSayfa da, sol üst köşedeki "Aktar" butonuna tıklayıp sonuçları gözlemleyiniz.

.

 

[yasa007]

teşekkürler