Makro ile aynı verileri taşımak

[sldrkyurdal]

Merhaba,
Bir konuda desteğe ihtiyacım olacak
Örneğin
a1 satırında İsim :Ali Yılmaz
b1 satırında ilce : Kadıköy
C1 satırında il : İstanbul
D1
e1 diye gidiyor benim isteğim isimleri ,ilçeleri ve illeri aynı olan verileri başka bir sayfaya aktarmasıdır (aynı olmayan başlaıklar ile beraber)
Desteğinizi rica ederim Teşekkürler

 

[turist]

Sayın sldrkyurdal,
Örnek excel dosyanızı ekleyip, istediğinizi dosyanız üzerinde açıklarsanız; daha kolay ve hızlı cevap alabilirsiniz.

 

[sldrkyurdal]

Merhaba,
Bir konuda desteğe ihtiyacım olacak
Örneğin
a1 satırında İsim :Ali Yılmaz
b1 satırında ilce : Kadıköy
C1 satırında il : İstanbul
D1
e1 diye gidiyor benim isteğim isimleri ,ilçeleri ve illeri aynı olan verileri başka bir sayfaya aktarmasıdır (aynı olmayan başlaıklar ile beraber)
Desteğinizi rica ederim Teşekkürler

Örnek dosya ekledim.

 

[sldrkyurdal]

Sayın sldrkyurdal,
Örnek excel dosyanızı ekleyip, istediğinizi dosyanız üzerinde açıklarsanız; daha kolay ve hızlı cevap alabilirsiniz.

Hatırlatma için teşekkürler dosyayı ekledim

 

[turist]

A, B ve C sütununda (üç veri de aynı) benzer olanlar , bir başka sayfdada listelenecek değil mi?
Örnek: Ali Yılmaz , Kadıköy, İstanbul.
Tablodan sadece bu veriler (Mahalle ve tarih de beraber) diğer sayfaya aktarılacak.
Listeleme koşulu sadece bu mudur?

 

[turist]

Ekli dosyayı kontrol edin, farklı bir sonuç istiyorsanız, lütfen belirtiniz.

 

[sldrkyurdal]

Ekli dosyayı kontrol edin, farklı bir sonuç istiyorsanız, lütfen belirtiniz.

Elinize sağlık süper olmuş son olarak sayfa 2 taşırken aynı isimleri alt alta vermesi için bir şeyler yapabilirmisiniz
teşekkürler

 

[turist]

Sıralama isimlere göre dizilecekse, "ALFABETİK" olarak A dan Z'ye şeklinde olabilir.
Ekli dosya buna göredir, farklı birşey olursa bilgi veriniz.

 

[sldrkyurdal]

Sıralama isimlere göre dizilecekse, "ALFABETİK" olarak A dan Z'ye şeklinde olabilir.
Ekli dosya buna göredir, farklı birşey olursa bilgi veriniz.

Teşekkürler.

 

[sldrkyurdal]

Sıralama isimlere göre dizilecekse, "ALFABETİK" olarak A dan Z'ye şeklinde olabilir.
Ekli dosya buna göredir, farklı birşey olursa bilgi veriniz.

gönderdiğiniz excelde kodlar çalışıyor ancak farklı bir excele geçtim ve kodları yeni excel yapıştırıp çalıştırdım
Dim son As Long: son = Sheet1.Range("A655536").End(xlUp).Row
kısmında hata alıyor sebebi ne olabilir.
teşekürler

 

[turist]

Örnek olarak eklediğiniz dosya "İngilizce" versiyon Excel'de hazırlandığı için sayfa isimleri İngilizce idi.

Dim son As Long: son = Sheet1.Range("A655536").End(xlUp).Row

yazan yerde "Sheet1" yerine "Sayfa1" yazarak deneyin.
Sayfaların isimleri VBA editör sayfasında soldaki üst bölümde yazar.
Oradan doğru isimleri bulup, kendinize uyarlayabilirsiniz.

 

[Orion1]

Şöyle deneyin.

Dim son As Long
son = Sheet1.Range("A655536").End(xlUp).Row