• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Şartlı Hücre Aktarma

S

santana555

Katılım
6 Kasım 2016
Mesajlar
18
Excel Vers. ve Dili
Professional Plus 2016
Türkçe
Merhabalar.
Sayfalarım var. "Ana","Ekim","Kasım", ............."Nisan" ,"Mayıs", şeklinde.
Ana sayfadaki A sütununda;
05.10.2016
12.10.2016
19.10.2016
26.10.2016
02.11.2016
09.11.2016
16.11.2016
23.11.2016
30.11.2016
07.12.2016
14.12.2016
21.12.2016
28.12.2016
04.01.2017
08.02.2017
15.02.2017
22.02.2017
01.03.2017
08.03.2017
15.03.2017
22.03.2017
29.03.2017
05.04.2017
12.04.2017
19.04.2017
26.04.2017
03.05.2017
10.05.2017
17.05.2017
24.05.2017 şeklinde tarihler var. (Bu tarihler değişkenlik gösterecek, sabit değil)
(Tarihler arasında 7 gün olacağından bir aya ait en fazla 5 tarih olabilir)
"Ana"sayfada A sütunundaki tarihlerin içinde ekim ayına ayına ait olan ilk tarihin yanında B sütununda yazan yazıyı "ekim" sayfası içindeki "J7" hücresine, C sütununda yazan yazıyı "ekim" sayfası içindeki "K8" hücresine, D sütununda yazan yazıyı "ekim" sayfası içindeki "J9" hücresine aktarmak istiyorum.
Aynı şekilde "Ana" sayfada A sütunundaki tarihlerin içinde ekim ayına ait olan ikinci tarihin yanında B sütununda ki yazıyı "ekim" sayfasındaki "J10", C sütunundaki yazıyı "K11", D sütunundaki yazıyı "J12" hücresine aktarmak istiyorum.
Ekim ayına ait üçüncü tarihide aynı şekilde "ekim" sayfası içindeki devam eden hücrelere aktarmak istiyorum.
Kasım ayına ait ilk tarihin yanındaki B,C,D hücrelerindeki yazıları "Kasım" sayfasına sırasıyla "J7", "K8" , "J9" hücrelerine aktarmak istiyorum.
Mayıs a kadar bu şekilde devam etsin istiyorum.
Kabataslak şöyle olacak;
Eğer "Ana" sayfada ekim ayına ait ilk tarih diyelim ki A2 hücresinde, "Ana" sayfadaki B2 yi "Ekim" sayfasındaki J7 ye, C2 yi K8 e, D2 yi J9 a aktarmak istiyorum.
Eğer "Ana" sayfada mart ayına ait ikinci tarih tarih diyelim ki A11 hücresinde, "Ana" sayfadaki B11 i "Ekim" sayfasındaki J10 ye, C11 i K11 e, D11 i J12 a aktarmak istiyorum.
Biraz karışık gibi inşallah anlatabildim :)
Bunun için nasıl bir kod yazabilirim.
Yardımcı olursanız sevinirim.

Linki aşağıdadır.
http://s3.dosya.tc/server9/otx66i/Ornek1.xlsx.html
 
Son düzenleme:
Örnek dosyanızı ekleyin ki daha anlaşılır olsun . Dosya üzerinde el ile yapılmış örnekleyin. Dosya upload sitelerinden birine (imza kısmında yazanlardan biri olabilir) yükleyerek linkini yazın.
 
vardar07' Alıntı:
Örnek dosyanızı ekleyin ki daha anlaşılır olsun . Dosya üzerinde el ile yapılmış örnekleyin. Dosya upload sitelerinden birine (imza kısmında yazanlardan biri olabilir) yükleyerek linkini yazın.
Genişletmek için tıkla ...


Linki ekledim. Dosyaya bi bakabilirseniz sevinirim.
 
Sayın sakman26 formulle yapmış eline sağlık makro ile alternatif olsun.
Kod: 
Sub aktar()
Dim sh As Worksheet
Set sa = Sheets("Ana")
For i = 1 To Sheets.Count
Set sh = Sheets(i)
If Sheets(i).Name <> "Ana" Then
sat = 7
sh.Range("C7:E21").ClearContents
sh.Range("J7:R21").ClearContents
For k = 2 To sa.Range("A" & Rows.Count).End(3).Row
If sa.Cells(k, 1) <> "" Then
a = Format(sa.Cells(k, "A"), "mmmm")
If Sheets(i).Name = Sheets(a).Name Then
sh.Cells(sat, "C") = sa.Cells(k, "A")
sh.Cells(sat, "J") = sa.Cells(k, "B")
sh.Cells(sat + 1, "J") = sa.Cells(k, "C")
sh.Cells(sat + 1, "K") = sa.Cells(k, "D")
sh.Cells(sat + 2, "J") = sa.Cells(k, "E")
sat = sat + 3
End If
End If
Next
End If
Next
End Sub
 
Son düzenleme:
sakman26' Alıntı:
selam,

Sn.vardar07 çevrimdışı.
Ben cevap verecek olursam, eki inceleyiniz...
Açıklamalar Ana ve Eylül sayfalarında yapıldı.

link : http://s3.dosya.tc/server9/4oub72/Ornek1.xlsx.html
Genişletmek için tıkla ...

Teşekkür ederim dostum eline sağlık tam istediğim gibi olmuş.
İndisleri görünce bişey aklıma takıldı. Bu ayların hepsi için ayrı ayrı sayfa açmak yerine tek sayfada liste kutusuyla da yapabilirmiyiz. Liste kutusunda aylar çıksa tıklayınca tek sayfada değişse. Çok oluyorum biraz ama merak işte:)
 
vardar07' Alıntı:
Sayın sakman26 formulle yapmış eline sağlık makro ile alternatif olsun.
Kod: 
Sub aktar()
Dim sh As Worksheet
Set sa = Sheets("Ana")
For i = 1 To Sheets.Count
Set sh = Sheets(i)
If Sheets(i).Name <> "Ana" Then
sat = 7
For k = 2 To Sheets("Ana").Range("A" & Rows.Count).End(3).Row
If Cells(k, 1) <> "" Then
a = Format(Cells(k, 1), "mmmm")
If Sheets(i).Name = Sheets(a).Name Then
sh.Cells(sat, "C") = sa.Cells(k, "A")
sh.Cells(sat, "J") = sa.Cells(k, "B")
sh.Cells(sat + 1, "J") = sa.Cells(k, "C")
sh.Cells(sat + 1, "K") = sa.Cells(k, "D")
sh.Cells(sat + 2, "J") = sa.Cells(k, "E")
sat = sat + 3
End If
End If
Next
End If
Next
End Sub
Genişletmek için tıkla ...

Dostum eline sağlık kod çalışıyor. Ama şöyle bişey var listeye mayıs ayından tarihler yazdığımda mayıs ayı oluyor. Ama mayıs yazmadığımda diğerleri değişiyor , mayıs ayında önceki aktardıklarım kalıyor. O kısımları temizlemiyor. Mayıs ayını boşaltmıyor.
 
Son düzenleme:
santana555' Alıntı:
Teşekkür ederim dostum eline sağlık tam istediğim gibi olmuş.
İndisleri görünce bişey aklıma takıldı. Bu ayların hepsi için ayrı ayrı sayfa açmak yerine tek sayfada liste kutusuyla da yapabilirmiyiz. Liste kutusunda aylar çıksa tıklayınca tek sayfada değişse. Çok oluyorum biraz ama merak işte:)
Genişletmek için tıkla ...

Öyle hem daha pratik olur ve hem de sayfa adlarıyla uğraşılmamış olur.
Ben dosya yapısına dokunmaksızın çözüm üretmeye çalışmıştım.

Dosyayı bu yönde düzenler gönderirim.
 
sakman26' Alıntı:
Öyle hem daha pratik olur ve hem de sayfa adlarıyla uğraşılmamış olur.
Ben dosya yapısına dokunmaksızın çözüm üretmeye çalışmıştım.

Dosyayı bu yönde düzenler gönderirim.
Genişletmek için tıkla ...

Çok teşekkür ederim dostum, heyecanla bekliyorum.
 
#5 Nolu mesajdaki kod güncellendi.
 
selam,

buyurun..

.....

Düzeltme : bir önceki dosyada Tarih ad tanımlaması , bir satır fazla olarak yapılmış. Sayfada aslında problem yok. Fakat yine de güncelleme yapıldı.
Link güncellendi... (Daha sonra eski dosyayı silerim.. Eski dosya silindi..)

link : http://s2.dosya.tc/server3/bnum3c/DonemIciGunler.xlsx.html
 
Son düzenleme:
Teşekkür ederim, işime çok yaradılar.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst