• Bir süredir maillerde yaşanan sorunlar giderilmiştir. Şifremi unuttum yaparak şifrelerinizi mailinizden alabilirsiniz.

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

Çözüldü Eşleşmeye göre satır ekleme

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.

seng

Yeni Üye
Kullanıcı Bilgileri
Aktiflik
Çevrimdışı
Katılım
7 Nis 2021
Mesajlar
807
Çözümler
1
Aldığı beğeni
91
Excel V
Office 2013 EN
Konuyu Başlatan
Arkadaşlar herkese selamlar, ekteki excelde veri sayfasında olan verileri ozet sayfasına getirmek istiyorum. Eğer ozet sayfasında eklenecek c sütununda geçen değer ozet sayfasında B sütunu ıle aynı ıse onun altına bır satır acıp eklemesını ıstıyorum. Eğer veri sayfasında c sütununda ozette b sütununda hıc olmayan bır deger var ıse de en alt satıra eklesın ıstıyorum nasıl yapabilirim? Şimdiden çok teşekkür ederim.
 

Ekli dosyalar

  • satırekleme.xlsx
    9.9 KB · Gösterim: 9
Arkadaşlar çözüm önerebilecek var mı?
 
Hem ozet sayfasında hem de veri sayfasında
KOD sütun başlığı altındaki veriler düzensiz.
ozet sayfasında metin biçiminde veri sayfasında
karışık biçimde. Bu veriler sayısal olarak mı
yoksa metin olarak mı değerlendirilecek.
 
Hem ozet sayfasında hem de veri sayfasında
KOD sütun başlığı altındaki veriler düzensiz.
ozet sayfasında metin biçiminde veri sayfasında
karışık biçimde. Bu veriler sayısal olarak mı
yoksa metin olarak mı değerlendirilecek.

Veriler sayısaldır hocam.
 
Merhabalar

Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • satırekleme.xlsm
    20.3 KB · Gösterim: 5
Çözüm
Karşılaştırma yapmak için dosyanız epeyce sıkıntılı.
Keşke daha düzenli veriler içeren bir dosya ekleyebilseydiniz.
Karşılaştırma yapabilmeniz için Sayfa1 de J sütununa listeledim.
Eğer doğruysa
'S1.Range("A2:C1048576").ClearContents satırındaki kesme işaretini
kaldırarak satırı aktif hale getirin.
S1.Columns(10 And 11 And 12 And 13).ClearContents satırının başına
kesme işareti koyarak pasif hale getirin. Şöyle olacak('S1.Columns(10 And 11 And 12 And 13).ClearContents)
S1.Cells(2, 10).Resize(say_bnz, 3).Value = (arrB) satırınıda
S1.Cells(2, 1).Resize(say_bnz, 3).Value = (arrB) olarak düzeltin.
Kolay gelsin.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

Ekli dosyalar

  • satırekleme_mkR(1) - Kopya.xlsm
    28.2 KB · Gösterim: 2
Karşılaştırma yapmak için dosyanız epeyce sıkıntılı.
Keşke daha düzenli veriler içeren bir dosya ekleyebilseydiniz.
Karşılaştırma yapabilmeniz için Sayfa1 de J sütununa listeledim.
Eğer doğruysa
'S1.Range("A2:C1048576").ClearContents satırındaki kesme işaretini
kaldırarak satırı aktif hale getirin.
S1.Columns(10 And 11 And 12 And 13).ClearContents satırının başına
kesme işareti koyarak pasif hale getirin. Şöyle olacak('S1.Columns(10 And 11 And 12 And 13).ClearContents)
S1.Cells(2, 10).Resize(say_bnz, 3).Value = (arrB) satırınıda
S1.Cells(2, 1).Resize(say_bnz, 3).Value = (arrB) olarak düzeltin.
Kolay gelsin.
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
Hocam merhaba, denedım ancak j ye aldı ekleme yapmadı dıgerlerını.
 

Ekli dosyalar

  • satırekleme_mkR(1) - Kopya.xlsm
    25.8 KB · Gösterim: 1
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
Geri
Üst