Başlığa Göre Diğer Sayfaya Verileri Aktarma

Feyzullah

Yönetici

Kullanıcı

Katılım

28 Mar 2018

Mesajlar

1,314

• 18 May 2019

• #2

WorksheetFunction.Match bu kodu kullanabilirsiniz.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(34 satır)

 

Oyla 0 Olumsuz oyla

Feyzullah

Yönetici

Kullanıcı

Katılım

28 Mar 2018

Mesajlar

1,314

• 18 May 2019

• #3

Gereksiz kodları temizledim ve sayfadaki verileri silme kodu ekledim(dat.Range("C7:AO" & Rows.Count).ClearContents)

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(33 satır)

 

Oyla 0 Olumsuz oyla

tahsinanarat

Kullanıcı

Katılım

13 May 2019

Mesajlar

303

• 18 May 2019

• #4

Sn.Refaz68 2 nolu mesajındaki kod işimi görecek gibi ancak saadece veri girilen tarihleri değiştirsin, data girme sayfasından veri girelmeyen diğer hücreler silinmesin, orjinal dosyamda bütün hücrelerde 7,5 yazıyor, Data_Girme sayfasında girilen veriler tarih ve sicilin kesiştiği hücrelere değerleri girsin ancak diğer hücrelerdeki 7,5 sayıları veri girilmesidği sürece değiştirilmesin.
Nisan 2019 sayfasında kod çalıştırıldıktan sonra olması gereken örnek dosyayı ekte gönderiyorum.

 

Oyla 0 Olumsuz oyla

tahsinanarat

Kullanıcı

Katılım

13 May 2019

Mesajlar

303

• 18 May 2019

• #5

Örnek dosya ekte

 

Ekli dosyalar

• Kitap1.xlsm

  22.3 KB · Görüntüleme: 14

Oyla 0 Olumsuz oyla

Feyzullah

Yönetici

Kullanıcı

Katılım

28 Mar 2018

Mesajlar

1,314

• 18 May 2019

• #6

3 numaralı mesajdaki en idealdi bence.Fırsat bulunca bir bakarım son eklediğiniz dosyaya.

 

Oyla 0 Olumsuz oyla

Feyzullah

Yönetici

Kullanıcı

Katılım

28 Mar 2018

Mesajlar

1,314

• 18 May 2019

• #7

Bir dener misiniz?
11ci sütundaki veriler boşsa değiştirir şarta göre.

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(35 satır)

 

Oyla 1 Olumsuz oyla

tahsinanarat

Kullanıcı

Katılım

13 May 2019

Mesajlar

303

• 18 May 2019

• #8

Sayfa1 de hücre doluysa üzerine yazmıyor, hücre boş ise belirttiğimiz kriterleri yazıyor. Oysa öyle olmayacak, hücrelerin verileri aktarmadan önceki hali hepsi dolu, ya 7,5 yada of yazıyor olacak, biz veri aktardığımızda sutun başlığına göre veri girdiğimiz hücreler gönderdiğimiz verileri hücrenin üzerine yazacak. Teşekkürler

 

Oyla 0 Olumsuz oyla

Feyzullah

Yönetici

Kullanıcı

Katılım

28 Mar 2018

Mesajlar

1,314

• 18 May 2019

• #9

Alttaki kodu silermisiniz.

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

 

Oyla 0 Olumsuz oyla

Feyzullah

Yönetici

Kullanıcı

Katılım

28 Mar 2018

Mesajlar

1,314

• 19 May 2019

• #10

Bukez oldu sanırım.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(32 satır)

 

Oyla 0 Olumsuz oyla

tahsinanarat

Kullanıcı

Katılım

13 May 2019

Mesajlar

303

• 19 May 2019

• #11

Sizi fazlasıyla yordum, hakkınızı helal edin. Bu kez tam istediğim gibi sonuç verdi. Elinize sağlık. Hayırlı Pazarlar.

 

Oyla 0 Olumsuz oyla

Feyzullah

Yönetici

Kullanıcı

Katılım

28 Mar 2018

Mesajlar

1,314

• 19 May 2019

• #12

Helal olsun üstadım.Sizede hayırlı pazarlar.

 

Oyla 0 Olumsuz oyla

Ziynettin

Kullanıcı

Katılım

28 Tem 2022

Mesajlar

18

• 19 May 2019

• #13

Merhaba,

Bende farklı çalışma yapmıştım.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(30 satır)

 

Oyla 0 Olumsuz oyla

tahsinanarat

Kullanıcı

Katılım

13 May 2019

Mesajlar

303

• 19 May 2019

• #14

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(1 satır)

Sn. Ziynettin Bey,
Yukarıdaki satırda Run Time error 13 hatası verip satırı sarıya boyuyor

5.mesajımda verdiğim örnek dosyada deneyebilirsiniz.

 

Oyla 0 Olumsuz oyla

Feyzullah

Yönetici

Kullanıcı

Katılım

28 Mar 2018

Mesajlar

1,314

• 19 May 2019

• #15

Yazsammı yazmasammı diye düşünürken yazayım istedim.Alttaki kodda normalde 11 yerine 10 vardı.10.cu sütunda tarih olmadığı için 11 yapmıştım.Siz duruma göre hareket edersiniz.

For Sut = 11 To 40

 

Oyla 0 Olumsuz oyla

Ziynettin

Kullanıcı

Katılım

28 Tem 2022

Mesajlar

18

• 19 May 2019

• #16

#13. mesajdaki kod 1. iletideki ekli dosyanıza göre.

Bu Kod ise #5. iletideki ekli dosyanıza göre.

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(30 satır)

 

Oyla 0 Olumsuz oyla

tahsinanarat

Kullanıcı

Katılım

13 May 2019

Mesajlar

303

• 19 May 2019

• #17

Çok teşekkürler, ilk fırsatda deneyip bigi vereceğim.

 

Oyla 0 Olumsuz oyla

tahsinanarat

Kullanıcı

Katılım

13 May 2019

Mesajlar

303

• 20 May 2019

• #18

Sn. Ziynettin, şu an kodlarınızı denedim, güzel ilgili hücrelere yazıyor ancak diğer hücre içindekileri siliyor, bu bilgiler yazmadan evvel bütün hücrelerde 7,5 yazıyor, aktarılan bilgi haricindeki diğer hücrelerdeki 7,5 ları silmemesi gerekiyor. Teşekkürler.

 

Oyla 0 Olumsuz oyla

Feyzullah

Yönetici

Kullanıcı

Katılım

28 Mar 2018

Mesajlar

1,314

• 20 May 2019

• #19

tahsinanarat' Alıntı:

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(33 satır)

Sn. Ömer Baran hocam; yukarıdaki size ait kodlarla sutun başlığına göre diğer sayfaya verileri aktarabiliyoruz. Ancak ekli örnek dosyamda aktarmak istediğim sutun başlığı formül ile tarihleri çekilmiş olduğundan aktarma işlemi gerçekleşmiyor. Formülleri değere dönüştürdüğümde aktarma işlemi yapılıyor, formül olduğu halde aktarma yapabilmek için kodda nasıl bir değişiklik olmalı. Teşekkürler

Genişletmek için tıklayın ...

İlk mesajınızdaki kodlarınızın içindeki

Kod:

İndirmek için giriş yapmanız gerekmektedir.
(5 satır)

Bu alanı siliniz ve bunun yerine aşağıdaki kodu yazınız.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(6 satır)

Genel kod yapısı ve Dosyanız aşağıdadır.

VBA:

İndirmek için giriş yapmanız gerekmektedir.
(38 satır)

 

Ekli dosyalar

• Sutun başlığına göre diğer sayfaya verileri aktarma.xlsm

  201 KB · Görüntüleme: 13

Oyla 0 Olumsuz oyla

Çözüm

tahsinanarat

Kullanıcı

Katılım

13 May 2019

Mesajlar

303

• 20 May 2019

• #20

Sn. metehan8001 çok teşekkür ediyorum. Hayırlı Ramazanlar

 

Oyla 0 Olumsuz oyla