sayfadaki aynı isme ait verileri başka sayfaya taşıma

[nuriavci]

a1=ahmet, a2=mehmet, a3=ali, a4=ahmet olsun. (a1 hücresinde ahmet yazıyor gibi düşünün) bu tek bir sütun. bu sütunun yanında bu adamlara ait bilgiler var.
ahmet ismini vereceğim bir sayfaya da bu sayfaki ahmet isminin yanındaki bilgileri otomatik olarak çekmek istiyorum. yani b1,c1,d1 ve b4,c4,d4 verilerini. Fakat listenin herhangi bir yerine yine ahmet ismi ve yanına bilgiler eklenirse, yine bu bilgileri otomatik olarak ahmet sayfasına çekecek.

Formüllerin içinden çıkamadım. yapılabilir mi böyle birşey?

 

[turist]

Foruma hoşgeldiniz.

Anlattıklarınızın yapılması tabii ki mümkün.
Ancak;Sanal bilgilerle değil de, gerçek verilerinize uygun bir örnek excel dosyanızı foruma eklerseniz daha kolay cevap bulabilirsiniz.

 

[nuriavci]

Cevabınız için teşekkür ediyorum öncelikle. örnek bir belge hazırladım ekliyorum. ekteki dosyada ben manuel olarak sayfaları ve isimlerini oluşturup tabloları hazırladım. yapmak istediğim ise sayfa1 deki tabloyu oluşturunca diğer sayfaların mümkünse isimlerine kadar kendisi oluşturup aynı isme ait verileri bu sayfalarda toplaması. sayfa1 deki isim listesi sıralı olmayacak maalesef. bu kısmıda önemli. yani ahmet, ayşe, ali, ahmet şeklinde devam edebilir.
ilginiz için tekrar teşekkür ediyorum. Umarım çözüm bulabilirim...

 

[turist]

Ekli dosyayı inceleyiniz.

 

[yagcim]

Ekli dosyayı inceleyiniz.

turist bende buna benzer bir soru sorabilir miyim. Bende bir kaç değişiklik dışında bir soru soracağım.

Örneğin ekteki excel belgesinde olduğu gibi;

gazetelerin günlük listesini tutuyorum. Bunları her seferinde o gazete bölümüne geliyorum yeni satır ekle diyorum uğraştırıyor. Yukarıda yapmış olduğunuz örnekte olduğu gibi bende örnek horoz gazetesi yazdığımda yeni sayfa oluştursun sonraki horoz gazetesi haberleri yine aynı sayfada devam etsin. bunun benzerini zaten yapmışsın sadece başlık değişik. ben soru7 excel belgenizde yaptığınız excelde nasıl değişiklik yapabilirim. ben gazete adını girdiğimde o gazete sayfasına Haberin tarihini, haberin başlığını, haberin sayfasını ve ayını girmek istiyorum. Nasıl yapabilirim. yardımlarınız için şimdiden teşekkür ederim. İyi Çalışmalar

Örnek sizin yaptığınız soru (7).xls belgesinde değişiklik yaptım. ama hepsini aktarmadı

 

[nuriavci]

üstad teşekkür ediyorum. nokta atış yaparak cevaplamışsın. allah razı olsun.

 

[METİNİLYAS]

Değerli Turist , Yaptığın yardım çok güzel, Tebrik ediyorum.
Bunu nasıl yaptığını bize de öğretebilirmisin.
Teşekkürler.

 

[swetlana]

Ekli dosyayı inceleyiniz.

merhaba,

Ekli örneği nasıl yaptığınızı tarif edebilir misiniz?

 

[turist]

turist bende buna benzer bir soru sorabilir miyim. Bende bir kaç değişiklik dışında bir soru soracağım.

Örneğin ekteki excel belgesinde olduğu gibi;

gazetelerin günlük listesini tutuyorum. Bunları her seferinde o gazete bölümüne geliyorum yeni satır ekle diyorum uğraştırıyor. Yukarıda yapmış olduğunuz örnekte olduğu gibi bende örnek horoz gazetesi yazdığımda yeni sayfa oluştursun sonraki horoz gazetesi haberleri yine aynı sayfada devam etsin. bunun benzerini zaten yapmışsın sadece başlık değişik. ben soru7 excel belgenizde yaptığınız excelde nasıl değişiklik yapabilirim. ben gazete adını girdiğimde o gazete sayfasına Haberin tarihini, haberin başlığını, haberin sayfasını ve ayını girmek istiyorum. Nasıl yapabilirim. yardımlarınız için şimdiden teşekkür ederim. İyi Çalışmalar

Örnek sizin yaptığınız soru (7).xls belgesinde değişiklik yaptım. ama hepsini aktarmadı

Ekli dosyayı deneyiniz.

 

[turist]

merhaba,

Ekli örneği nasıl yaptığınızı tarif edebilir misiniz?

Sayfa Kodlarına bakınız.

 

[turist]

Değerli Turist , Yaptığın yardım çok güzel, Tebrik ediyorum.
Bunu nasıl yaptığını bize de öğretebilirmisin.
Teşekkürler.

Sayfa Kodlarını inceleyiniz.

 

[tahsinanarat]

Altarnatif Olsun

Sub Test()
Dim cn As Object, rs As Object
Dim array_accounts$(), i%
Set cn = CreateObject("adodb.connection")
Set rs = CreateObject("adodb.recordset")
cn.Open _
"driver={microsoft excel driver (*.xls)};dbq=" & ThisWorkbook.FullName
rs.Open _
    "select distinct [Adı Soyadı] from [Sayfa1$]", cn, 1, 3
While Not rs.EOF
    i = i + 1
    ReDim Preserve array_accounts$(i - 1)
    array_accounts(i - 1) = rs(0)
    rs.movenext
Wend
On Error Resume Next
Application.DisplayAlerts = False
For i = 0 To UBound(array_accounts)
    Worksheets.Add after:=Sheets(Sheets.Count)
    Sheets(Sheets.Count).Name = array_accounts(i)
    Sheets("Sayfa1").[a1:e1].Copy Sheets(Sheets.Count).[a1]
    If Err Then Sheets(Sheets.Count).Delete: Err.Clear
Next
Application.DisplayAlerts = True
For i = 0 To UBound(array_accounts)
    Set rs = cn.Execute( _
    "select * from [Sayfa1$] where [Adı Soyadı] ='" & array_accounts(i) & "'")
     Sheets("" & array_accounts(i)).[a2:e65536].ClearContents
    Sheets("" & array_accounts(i)).[a2].CopyFromRecordset rs
Next
rs.Close
cn.Close
Erase array_accounts
Set rs = Nothing
Set cn = Nothing
End Sub

Not: kodlar evvelce bu siteden temin edilen kodlardır

 

[yagcim]

Ekli dosyayı deneyiniz.

Ekli dosya tam istediğim gibi olmuş. Teşekkür Ederim Üstadım.

 

[swetlana]

üzgünüm ama nasıl kodlara bakacağım bilemiyorum

kısana nasıl sayfalara ayırdığını öğretebilirseniz memnun olurum.

 

[turist]

üzgünüm ama nasıl kodlara bakacağım bilemiyorum

kısana nasıl sayfalara ayırdığını öğretebilirseniz memnun olurum.

Kodlara bakmak için Alt tuşuna basılı tutarak F11 tuşuna basın.
Açılacak Pencere yeni bir sayfa göreceksiniz.
"Microsoft Visual Basic for Applications" sayfası.
Bu sayfanın solunda bulunan sayfa isimlerine çift tıkladığınızda, sağ tarafta Macro Kodları görülür.
Bu kodlar, aynı zamanda bir programlama dili ile yazıldığı için. Tarif etmek oldukça uzun bir konu olur.
Temel Basic programlama dili bilgisi olmadan da anlaşılması zor olacaktır.

Yapılan işlem kısaca sayfada bulunan Gazete isimlerine göre çalışma sayfaları açıp bu isimlere ait bilgileri açılan sayfalara taşımak.

Tabii ki , kısaca anlatılan bu durumun mantığına uygun yazılan kodların çalıştırılması ile (Bir buton aracılığı ile) işlem görür.
Bu konuda bilgi sahibi olmak için, bu forumda oldukça çok ve kıymetli örnekler, uygulamalar bulabilirsiniz.

Forumu takip etmeye özen gösterirseniz, zamanla bilgilerinizin arttığına şahit olursunuz.

Kolay gelsin.

 

[yagcim]

Kodlara bakmak için Alt tuşuna basılı tutarak F11 tuşuna basın.
Açılacak Pencere yeni bir sayfa göreceksiniz.
"Microsoft Visual Basic for Applications" sayfası.
Bu sayfanın solunda bulunan sayfa isimlerine çift tıkladığınızda, sağ tarafta Macro Kodları görülür.
Bu kodlar, aynı zamanda bir programlama dili ile yazıldığı için. Tarif etmek oldukça uzun bir konu olur.
Temel Basic programlama dili bilgisi olmadan da anlaşılması zor olacaktır.

Yapılan işlem kısaca sayfada bulunan Gazete isimlerine göre çalışma sayfaları açıp bu isimlere ait bilgileri açılan sayfalara taşımak.

Tabii ki , kısaca anlatılan bu durumun mantığına uygun yazılan kodların çalıştırılması ile (Bir buton aracılığı ile) işlem görür.
Bu konuda bilgi sahibi olmak için, bu forumda oldukça çok ve kıymetli örnekler, uygulamalar bulabilirsiniz.

Forumu takip etmeye özen gösterirseniz, zamanla bilgilerinizin arttığına şahit olursunuz.

Kolay gelsin.

Merhaba turist bey benim excel çalışıyordu fakat şimdi hata veriyor. değişiklik yapmadım. yardımcı olur musunuz.

hata bölümünde Sayfavarmi kodunda hata veriyor ve sarı ile "Private Sub CommandButton1_Click()" burayı gösteriyor

 

[turist]

Merhaba turist bey benim excel çalışıyordu fakat şimdi hata veriyor. değişiklik yapmadım. yardımcı olur musunuz.

hata bölümünde Sayfavarmi kodunda hata veriyor ve sarı ile "Private Sub CommandButton1_Click()" burayı gösteriyor

Dosyanız ektedir.
Macro kodlarında altta yer alan Function bölümü silinmiş, hatanın nedeni odur.
Şimdi dosyanız çalışmaktadır.

 

[yagcim]

Dosyanız ektedir.
Macro kodlarında altta yer alan Function bölümü silinmiş, hatanın nedeni odur.
Şimdi dosyanız çalışmaktadır.

Teşekkür Ederim turist Bey. Ellerinize Sağlık

 

[demirf37]

MErhaba;
23 sutundan oluşan bir excel tabloda;tabloyu 23.sutunun detaına göre otomatik olarak sayfalara ayırmasını istiyorum.Tümü 80.000 satır olduğu için manuel yapmak çok zor.
Yardımınızı rica ediyorum.Bu kodu uygulamak istedim ama hata verdi.
Excel 2010 da çalışıyorum.konu çok acil.
Teşekkürler

 

[demirf37]

konu acil..
Yardımınızı rica ediyorum.
şimdiden teşekkürler