• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Sadece değerleri nasıl yapıştırabilirim?

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Y

yyhy

Yeni Üye
Katılım
13 Ağu 2021
Mesajlar
297
Çözümler
3
Aldığı beğeni
141
Excel V
Office 2021 TR
Konu Sahibi
Gelişmiş filtre ile ilgili adımları macroya dönüştürdüm. Ama ilgili sayfadan verileri getirirken direkt olarak yapıştırıyor ben o sayfanın biçimlerini istemiyorum. Macro da değişiklik ne yapmam, neresini düzeltmem gerekir.
Yardımcı olabilecek arkadaşlara teşekkür ederim.

Hazırladığım macro ise şudur:
Sub TakipListesi()
Range("Listem").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Kriter"), CopyToRange:=Range("Extract"), Unique:=False
End Sub
 
Tarihe göre sırala Oylara göre sırala
Deneyiniz.
HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
Ekli dosyayı inceleyiniz.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Konu Sahibi
Sayın Balta bey öncelikle ilginiz için teşekkür ederim.
Takip - 1 sayfasında Microsoft Office 2021 de tek bir formül ile =FİLTRE(Tablo1;Tablo1[Önem]=C8;"")
istediğimiz verileri getirebiliyoruz.

Ancak Microsoft Office 2021 den düşük versiyonlu Office lerin olduğu bilgisayarlarda da macro ile aldırmak istiyorum.

Sizin vermiş olduğunuz macro kodunu ve örnek dosyayı uyarlayamadım.

Örnek dosya eklememiştim sayfada bulunan özel bilgileri değiştirerek örnek dosya ekledim üzerinde uygulayabilir misiniz?
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 0 Negatif oyla
Dosyanız ektedir.
 

Ekli dosyalar

Bu konu çözüme ulaşmıştır yüklü dosyaları indirmek için Bronz üye olunuz.
Bu dosyayı indirmek için yetkiniz bulunmamaktadır.
Olumlu oy 1 Negatif oyla
Çözüm
Alternatif olarak alttaki Ado ile kod denenebilinir.

If .Range("O9").Value <> "" Then sql = sql & " and f50 = '" & .Range("O9").Value & "'"
Yukerdakinin altına diğer şartları eklemelisiniz.
F50 demek Önleyici sayfasının 50.sütunudur.

HTML:
CSS:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Olumlu oy 0 Negatif oyla
yyhy' Alıntı:
Gelişmiş filtre ile ilgili adımları macroya dönüştürdüm. Ama ilgili sayfadan verileri getirirken direkt olarak yapıştırıyor ben o sayfanın biçimlerini istemiyorum. Macro da değişiklik ne yapmam, neresini düzeltmem gerekir.
Yardımcı olabilecek arkadaşlara teşekkür ederim.

Hazırladığım macro ise şudur:
Sub TakipListesi()
Range("Listem").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"Kriter"), CopyToRange:=Range("Extract"), Unique:=False
End Sub
Genişletmek için tıkla...
Gelişmiş filtreleme için seçilen aralıklarla verilerin alındığı sayfadaki başlıklar aynı olmadığı için hata oluyor.
Biraz karışık yazdım galiba.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst