• Foruma hoş geldin 👋 Ziyaretçi

    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 tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Veri Aktarımı

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.
mcexrem

mcexrem

Yeni Üye
Katılım
22 Nis 2022
Mesajlar
668
Çözümler
2
Aldığı beğeni
117
Excel V
Office 2019 TR
Konu Sahibi
Merhabalar üstadlar,

Dosyamın KÖM.AKS sayfasından KÖM.SİP sayfasına D sütununda veri olan satırları aktarmak istiyorum.

KAYNAK: HEDEF:

G5 hücresini A sütununa
A sütunu B sütununa
B sütunu C sütununa
C sütunu D sütununa
D sütunu E sütununa
E sütunu F sütununa
F sütunu G sütununa
G sütunu I sütununa

aktarıp KÖM.AKS sayfası D sütununu temizleyip filtreleme işlemini iptal ettirebilir miyiz?
 

Ekli dosyalar

Tarihe göre sırala Oylara göre sırala
mcexrem' Alıntı:
Merhabalar üstadlar,

Dosyamın KÖM.AKS sayfasından KÖM.SİP sayfasına D sütununda veri olan satırları aktarmak istiyorum.

KAYNAK: HEDEF:

G5 hücresini A sütununa
A sütunu B sütununa
B sütunu C sütununa
C sütunu D sütununa
D sütunu E sütununa
E sütunu F sütununa
F sütunu G sütununa
G sütunu I sütununa

aktarıp KÖM.AKS sayfası D sütununu temizleyip filtreleme işlemini iptal ettirebilir miyiz?
Genişletmek için tıkla...
KÖM.AKS sayasında D sütununda herhangi bir veri yok. KÖM.SİP sayfası sadece bu aktarılan verilerden olucak değil mi başka veri olmayacak.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Benzer kod KÖMMER sayfasından KÖM.SİP sayfasına aktarma şeklinde mevcut.
KÖM AKS sayfası D sütununa veri girip filtreleyip çıktı alıyorum. Seçili verileri de aktarıyorum.
Sorunuza gelecek olursak evet köm.sip sayfasına sadece aktarım yapıyorum.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Merhabalar Sn excelcan hocam,
desteğiniz için teşekkür ederim, veri aktarımı başarılı sadece KÖM.SİP sayfasındaki verileri silmemesi gerekiyor. Mevcut sayfaya ekleyerek verileri aktaracak şekilde kodu revize edebilir misiniz?
 
Olumlu oy 0 Negatif oyla
mcexrem' Alıntı:
Merhabalar Sn excelcan hocam,
desteğiniz için teşekkür ederim, veri aktarımı başarılı sadece KÖM.SİP sayfasındaki verileri silmemesi gerekiyor. Mevcut sayfaya ekleyerek verileri aktaracak şekilde kodu revize edebilir misiniz?
Genişletmek için tıkla...
o zaman KÖM.SİP sayfasında dolu olan en son satırın
bir altına aktaracak.
Bu mudur ?
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
teşekkür ederim hocam ama, sadece D sütununda veri olan satırları atması gerekirken tüm sayfadaki verileri aktarıyor.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Teşekkür ederim Sn. excelcan hocam,
Sizden son bir ricam olacak, KÖMMER sayfasına uygulanan KÖMMER_Aktar_Temizle makrosunu çalıştırdığımda J sütununa uygulanan filtreleme işlemini iptal edip B2 hücresini de sildirebilir misiniz.
 
Olumlu oy 0 Negatif oyla
mcexrem' Alıntı:
Teşekkür ederim Sn. excelcan hocam,
Sizden son bir ricam olacak, KÖMMER sayfasına uygulanan KÖMMER_Aktar_Temizle makrosunu çalıştırdığımda J sütununa uygulanan filtreleme işlemini iptal edip B2 hücresini de sildirebilir misiniz.
Genişletmek için tıkla...
birden fazla alanda filtreleme varsa onlar ne olacak ?
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
hocam modül5 in SON kısmın değiştirdim. yanlış tarif etmişim.

HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da üye ol.
şeklinde düzelttim hocam.

KÖM.AKS sayfasında filtreleme işlemini iptal değil de temizleme şeklinde revize edebilir misiniz.
ve kömmer sayfası b2 silme işlemim hocam.
 
Olumlu oy 0 Negatif oyla
Konu Sahibi
Sizin eklediğiniz yeri altifleştirdim, B2 siliniyor ama filtreler kalkıyor hocam
 
Olumlu oy 0 Negatif oyla
mcexrem' Alıntı:
Sizin eklediğiniz yeri altifleştirdim, B2 siliniyor ama filtreler kalkıyor hocam
Genişletmek için tıkla...
Sanırım modul12 deki makrodan söz ediyorsunuz.

bu şekilde yaparsanız
' Filtreyi koruyup süzmeyi kaldır
If wsKOMMER.AutoFilterMode Then
wsKOMMER.AutoFilter.ShowAllData
wsKOMMER.Range("B2").ClearContents 'bu satırı unutmuşum. ekledim
End If

bu şekilde yaparsanız (bunlar pasifte)
''Tüm filtreyi kaldırır. b2 yi temizler.
'If ws.AutoFilterMode Then ws.AutoFilterMode = False
'wsKOMMER.Range("B2").ClearContents

bu şekilde yaparsanız J sütunu çözer. (bunlar da pasifte)
' If wsKOMMER.AutoFilterMode Then
' If wsKOMMER.AutoFilter.Range.Columns(10).AutoFilter Then
' wsKOMMER.Range("J3").AutoFilter Field:=10
' wsKOMMER.Range("B2").ClearContents
' End If
'End If

3 ayrı kod kümesi var.
bir küme aktif iken diğerleri pasif olmalı. Hepsi bu.
 

Ekli dosyalar

Olumlu oy 1 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst