Sayfa Arası Belirli Veri Aktarımı

[ByChilavert]

Merhaba

İki sayfa arası seçime bağlı olarak veri aktarımı yapmak istiyorum. Kurul Tablosunda H12 hücresinde seçmiş olduğum veriye istinaden Liste Tablosundaki o veriyi içerenleri sarı renke boyadığım alana toplu şekilde yapmasını istiyorum. Düşeyara ile denedim ama bunu bir türlü başaramadım. Bunu yapmak için nasıl bir yol izlemem lazım. Yardımcı olabilirmisiniz.

Örnek Dosya Linki : İndir....

 

[derisa963]

@ByChilavert Dosyanız Ektedir
Dosyanızı İndirmewk İçin Tıklatınız.

 

[çıtır]

Formül ile yapılmış çözüm
https://www.dosyaupload.com/e6cz
Alternatif olsun.
Bir modüle kopyalayarak deneyiniz.

Sub Veriaktar()
Dim s1 As Worksheet: Dim s2 As Worksheet
Dim i As Integer
Set s1 = Sheets("Liste")
Set s2 = Sheets("Kurul")
Application.ScreenUpdating = False
s2.Range("B13:G33").ClearContents
son = s1.Cells(65336, "L").End(3).Row
sat = 13
    For i = 2 To son
If s1.Range("L" & i) = s2.Range("H12") And sat < 34 Then
s2.Cells(sat, 2) = s1.Cells(i, 2)
s2.Cells(sat, 3) = s1.Cells(i, 4)
s2.Cells(sat, 5) = s1.Cells(i, 6)
s2.Cells(sat, 6) = s1.Cells(i, 7)
s2.Cells(sat, 7) = s1.Cells(i, 12)
s2.Range("E" & sat).NumberFormat = "dd.mm.yyyy"
s2.Range("F" & sat).NumberFormat = "dd.mm.yyyy"
If s2.Cells(sat, 6) <> "" And s2.Cells(sat, 5) <> "" Then
s2.Cells(sat, 4) = s2.Cells(sat, 6) - s2.Cells(sat, 5)
End If
sat = sat + 1
End If
Next i

Application.ScreenUpdating = True
MsgBox "İŞLEM BİTİRİLDİ.", vbInformation
End Sub

 

[ByChilavert]

@ByChilavert Dosyanız Ektedir
Dosyanızı İndirmewk İçin Tıklatınız.

Merhaba
Göndermiş olduğunuz dosyayı kullanmak istediğimde bazı verileri getirmiyor. Mantık yürüterek işlem yapmak istedim ama çözüm bulamadım. Yardımcı olabilir misiniz
İndir.

 

[çıtır]

Merhaba
Göndermiş olduğunuz dosyayı kullanmak istediğimde bazı verileri getirmiyor. Mantık yürüterek işlem yapmak istedim ama çözüm bulamadım. Yardımcı olabilir misiniz
İndir.

Dosyanız ektededir.Sondaki satır:Sıralı gitmelidir.
https://www.dosyaupload.com/e8lA

 

[ByChilavert]

Merhaba
Farklı bir siteye upload yapabilir misiniz. Altın üye değilim indiremiyorum.

 

[çıtır]

Merhaba
Farklı bir siteye upload yapabilir misiniz. Altın üye değilim indiremiyorum.

#5 nolu iletide link eklendi.

 

[ByChilavert]

Merhaba

kusura bakmayın ne demek istediğiniz anlayamadım. son satır derken neresi yanlış gidiyor baktım ama düzgün gidiyor gibi ilk sayfa dışında diğer sayfalar olmuş sanırım ama ilk sayfada bilgileri olup izin gün sayısı olmayanlar var.

 

[çıtır]

Merhaba

kusura bakmayın ne demek istediğiniz anlayamadım. son satır derken neresi yanlış gidiyor baktım ama düzgün gidiyor gibi ilk sayfa dışında diğer sayfalar olmuş sanırım ama ilk sayfada bilgileri olup izin gün sayısı olmayanlar var.

Koşullu biçimlendirme kuralını siliniz.Olmayan izin günleri çıkaçaktır.