Veri Aktarma Hk.

valentino06

Kullanıcı
Katılım
4 May 2018
Mesajlar
256
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhaba Çok Kıymetli Excel Hocalarım. 2 Adet sayfadan oluşan bir excel kitabım var. "Veri" , "Biten işler sayfası " adında Hocalarım. yapmak istediğim ise Veri sayfasında bulunan "AA"Sütununda bulunan değerler ile "V" Sütununda Bulunan değer eşit ise komple satırı. Biten işler sayfasına atsın istiyorum.Otomatik atsın. Biten işler sayfasın da atılan veriler alt alta gelsin istiyorum. Hocalarım. veri sayfasında Yaklaşık 1 ile 1000 arasında verim var. Sayın hocalarım çok teşekkür ederim.

Saygılarımla,

Hayırlı Akşamlar Dilerim.
 
Sayfayi korumaya aldigimda macro calismiyor
İki Worksheet_Change Kodunu Birleştirme

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Öncelikle iki sayfadaki sütun sayıları birbirine eşit değil. Ve aynı sütundan da başlamıyorlar. Sizin için farkeder mi bilmiyorum. Lakin kaymalar olacaktır. İkinci olarak da otomatik den kastınız kodun devamlı çalışması ise bu gereksiz yere bilgisayarı yorması anlamına gelecektir. Bunun yerine V ve AA sütununda değişiklik olduğunda kodun çalışmasını sağlamak daha mantıklı gibi. Ne yapılmak istenileni anlamadığım için bu yöntem ile kodu hazırladım.
Ekli dosyayı inceleyiniz. V ve AA sütununda değişiklik olursa kod çalışacaktır.

İlgili kod:
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(10 satır)

Not: Exceliniz galiba ingilizce. Sayfa isimlerini Sheet1 den Sayfa1 çevirdim. Bilginize.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Sayın Cakarem Hocam çok teşekkür ederim. Hayırlı Akşamlar dilerim. AA, V değerleri eşit ise yani aynı ise tüm satırı biten işlere atsın. demek istemiştim. İnşallah anlatabilmişimdir.
 
Oyla 0 Olumsuz oyla
Sayın Cankerem Özür diliyorum ben anlatamadım. eğer 22-27 sütünlar = ise sayısal değerler yani aynı ise tüm satır. verilerden Biten işlere kaydetsin istiyorum. Veri sayfasında kalmasın. istiyorum. İnşallah bu sefer anlatabilmişimdir.Lütfen Hakkınızı Helal edin. çok teşekkür ederim.

Saygılarımla,
İyi Akşamlar.
 
Oyla 0 Olumsuz oyla
Ekli dosyayı görüntüle 5708Ekli dosyayı görüntüle 5710


Resimlerde de göreceğiniz gibi biri A sütunundan başlamış diğeri B sütunundan. Bu fark önemli değil anladığım kadarıyla. İkinci olarak da sütun sayıları birbirine eşit değil. Neyse ben anladım yapılmak istenileni. Eşitlik sağlanıyorsa birinci ilk sayfadan ikinci sayfada verileri taşıyıp ilk sayfadan silmek istiyorsunuz.

İkinci sayfayı ilk sayfa ile aynı formata getirdim. Ve verilerin silinmesini sağlayan kodu ekledim.

İlgili kod:
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(11 satır)

Ekli dosyayı inceleyiniz.

Kodun çalışmasını görmeniz için aşağıdaki adımları uygulayınız
- Veri sayfasını seçiniz.
- Veri sayfasında V veya AA sütununa geliniz.
- Veri sayfasında V veya AA sütunundaki değerlerin aynı olmasını sağlayınız.

Bu durumda kod çalışıp veriler diğer sayfaya aktarılıp ilk sayfadan silinecektir.
 

Ekli dosyalar

  • 1600982575216.webp
    1600982575216.webp
    12.2 KB · Görüntüleme: 59
  • 1600982603354.webp
    1600982603354.webp
    9.7 KB · Görüntüleme: 63
  • Örnek.xlsm
    Örnek.xlsm
    21 KB · Görüntüleme: 2
Oyla 0 Olumsuz oyla
Sayın Cakarem Hocam çok teşekkür ederim. göndermiş olduğunuz örnekte çalışıyor. benim excelim de çalışmıyor. benim anladığım kadarıyla koddan kaynaklanmıyor. Aynı sayfa da 1 den fazla " Private Sub Worksheet_Change(ByVal Target As Range)" özeliği olduğu için çalışmıyor.acaba bunun bir çözümü var mı Hocam ne kadar teşekkür etsem az olur.
Hayırlı Geceler.
 
Oyla 0 Olumsuz oyla
Sayın Cakarem Hocam çok teşekkür ederim. Kod güzel çalışıyor. Elinize ve Emeğinize Sağlık Allah'a Emanet Olun.
Saygılarımla,
Hayırlı Geceler.
 
Oyla 0 Olumsuz oyla
Sayın Cankarem Hocam Yapmış olduğunuz Kodda hiç bir sıkıntı yok. Yalnız Başka bir sistemden veri çekiyorum. Yaklaşık 25- 40 dakika sürüyor. eşit olanları sildiği için veriler de kayma olduğunu fark ettim. Hocam mümkünse Buton Atama yolu yapılabilir mi çok teşekkür ederim.
Saygılarımla,

İyi Günler.
 
Oyla 0 Olumsuz oyla
Dosyanıza benzer örnek dosya yüklerseniz ona göre kodlar revize edilmiş olunur. Neden dolayı uzun sürdüğü bu şekilde anlamam zor. Buton ataması içinde Private Sub Worksheet_Change(ByVal Target As Range)" içeriğinde ki kodları kopyalayıp yeni bir makro kodu bloğu arasına yapışturınız. Kopyalanan kodları silebilirsiniz.
sub exceldestek()​
kopyalan kodları yapıştır​
end sub​
 
Oyla 0 Olumsuz oyla
Sayın Cakarem Hocam ekteki excele yaptım. fakat aşağıdaki hatayı verdi. lütfen bakabilirmisiniz.Çok teşekkür ederim.

1601041717051.webp

1601041740635.webp
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Cakarem Hocam bir sıkıntı ile karşılaştım. "V";"AA" Sütunları boş olunca da aktarıyor. Hocam Boş ve "0" Sıfır olunca lütfen aktarmısın. "0" tan büyük ve eşit ise aktarsın hocam çok teşekkür ederim.

Saygılarımla,
İyi Akşamlar.
 
Oyla 0 Olumsuz oyla
Aşağıdaki kodu deneyiniz.
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(13 satır)

valentino06' Alıntı:
Sayın Cakarem Hocam Çok Teşekkür Ederim.Allah Razı Olsun. Lütfen Konuyu Çözüldü olarak İşaretleye bilir misiniz.
Genişletmek için tıklayın ...
Çözüm olduğunu düşündüğünüz mesajın sağ tarafında ÇÖZÜLDÜ ikonunu tıklarsanız konu çözüldü olarak işaretlenmiş olunur.

1600860099575.png
ÇÖZÜLDÜ İKONU
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt