Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


Geri Git   Excel Forum > EXCEL-Soruları > Fonksiyonlar
Atatürk
Şifremi Unuttum

DUYURU SİSTEMİ / REKLAM PANOSU

Fonksiyonlar Bir fonksiyonun, nasıl işlediğini veya aradığınız bir işleme uygun olup olmadığını bu başlık altında sorabilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 27-11-2016, 18:54   #1
bybyby
Altın Üye
 
Giriş: 06/12/2007
Mesaj: 30
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan Komple sütunda aratıp alt hücreyi kopyalatma

Merhabalar,

Bir excel sayfamız var.

A ve B sütunlarımız var. A1 hücresindeki veriyi B sütununda aratıp varsa A1 ve A2 deki verileri yine alt alta B sütununa yazdırmak istiyorum. Eğer B sütununu hiç kullanmayalım derseniz C sütununa yazmakta işime gelir.

Örnek dosya ektedir.

https://dl.dropboxusercontent.com/u/...lastirma2.xlsx
bybyby Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-11-2016, 19:39   #2
mucit77
Destek Ekibi
 
mucit77 kullanıcısının avatarı
 
Giriş: 22/10/2012
Mesaj: 1,972
Excel Vers. ve Dili:
2007 Türkçe
Varsayılan

Merhaba,
Anladığım kadarıyla şöyle bir kod yazdım. Deneyiniz...
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub kod()
For a = 1 To Range("A65500").End(3).Row
    If WorksheetFunction.CountIf(Range("B:B"), Cells(a, "A")) > 0 Then
        sat = WorksheetFunction.Match(Cells(a, "A"), Range("B:B"), 0)
        Cells(sat, "C") = Cells(sat, "B")
        Cells(sat + 1, "C") = Cells(a + 1, "A")
    End If
    sat = Empty
Next
End Sub
__________________
Alıntı:
evi Nepal'de kalmış
Slovakyalı salyangozdur ruhum
mucit77 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-11-2016, 21:37   #3
bybyby
Altın Üye
 
Giriş: 06/12/2007
Mesaj: 30
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Kodu çalıştırdığımda 400 uyarısı veriyor.

A sütunu 6000 satır B sütunu 50000 satır. Acaba satır sayısı sorun olabilir mi? Yoksa kodda mı hata var?
bybyby Çevrimdışı   Alıntı Yaparak Cevapla
Eski 27-11-2016, 22:20   #4
mucit77
Destek Ekibi
 
mucit77 kullanıcısının avatarı
 
Giriş: 22/10/2012
Mesaj: 1,972
Excel Vers. ve Dili:
2007 Türkçe
Varsayılan

Maalesef bilmiyorum...
__________________
Alıntı:
evi Nepal'de kalmış
Slovakyalı salyangozdur ruhum
mucit77 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-11-2016, 00:04   #5
bybyby
Altın Üye
 
Giriş: 06/12/2007
Mesaj: 30
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Benzer bir soru daha sorulmuş ve yine siz cevaplamışsınız. Acaba o formülü benim soruma göre modifiye etmek mümkün mü?

http://www.excel.web.tr/f14/hucreler...i-t160091.html
bybyby Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-11-2016, 08:23   #6
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,482
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

Sayın mucit77'nin kodunu çalıştırdığımda bende hata vermedi.
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 28-11-2016, 08:34   #7
bybyby
Altın Üye
 
Giriş: 06/12/2007
Mesaj: 30
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Sanırım uzunluklarla alakalı bir sorun.

Orijinal dosyada denediğimde hata alıyorum. Dosya ektedir.

https://dl.dropboxusercontent.com/u/8500167/lang.xlsx
bybyby Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-11-2016, 09:16   #8
YUSUF44
Destek Ekibi
 
YUSUF44 kullanıcısının avatarı
 
Giriş: 04/01/2006
Şehir: Manisa, Kula
Mesaj: 6,482
Excel Vers. ve Dili:
İş : Ofis 2016 - Türkçe Ev: Ofis 2016 - Türkçe
Varsayılan

A150 hücresinde bir formül var ve AD hatası vermiş. Onu silince 1004 "Application defined or object defined error" hatası veriyor. NEdenini çözemedim.
__________________


Sorularınızı örnek dosyayla desteklemeniz çözüme ulaşmanızı kolaylaştırır.

Altın Üye olmanızı öneririm. Altın Üye değilseniz dosyanızı dosya yükleme sitelerinden birine yükleyip linkini paylaşabilirsiniz.
YUSUF44 Çevrimiçi   Alıntı Yaparak Cevapla
Eski 28-11-2016, 12:52   #9
mucit77
Destek Ekibi
 
mucit77 kullanıcısının avatarı
 
Giriş: 22/10/2012
Mesaj: 1,972
Excel Vers. ve Dili:
2007 Türkçe
Varsayılan

Örnek dosyanız için aşağıdaki kodu deneyiniz. Verileriniz çok fazla olduğu için bir müddet bilgisayarınız kitlenebilir.
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub KOD()
DoEvents
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim sat As Long, a As Long
Range("C:C").Clear
Range("B:B").Copy Range("C:C")
For a = 1 To Range("A65500").End(3).Row Step 2
    If WorksheetFunction.CountIf(Range("B:B"), Cells(a, "A")) > 0 Then
        sat = WorksheetFunction.Match(Cells(a, "A"), Range("B:B"), 0)
        Cells(sat + 1, "C") = Cells(a + 1, "A")
    End If
    sat = Empty
Next
Application.ScreenUpdating = True
End Sub
__________________
Alıntı:
evi Nepal'de kalmış
Slovakyalı salyangozdur ruhum
mucit77 Çevrimdışı   Alıntı Yaparak Cevapla
Eski 28-11-2016, 13:04   #10
bybyby
Altın Üye
 
Giriş: 06/12/2007
Mesaj: 30
Excel Vers. ve Dili:
Excel 2007 Türkçe
Varsayılan

Hocam elleriniz dert görmesin. Beni büyük bir yükten kurtardınız. Son gönderdiğiniz kodlar sorunsuz çalıştı.
bybyby Çevrimdışı   Alıntı Yaparak Cevapla
Yanıtla


Konu Araçları
Görünüm Modları

Gönderme Kuralları
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is Açık
SimgelerAçık
[IMG] kodu Açık
HTML kodu Kapalı


Saat 22:00


Bu forum Elit NET - www.elitnet.com.tr tarafından sunulmaktadır.

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım -- Beylikdüzü mali müşavir - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Dil Konuşma Terapisti- Çorlu Özel Eğitim- Site Yönetimi- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Çorlu- Çorlu Araç Takip- Çorlu Su Arıtma- Gebze Emlak- Rampa- Rotary- Çorlu İnternet Sitesi- Çorlu Sürücü Kursu- Çorlu Sürücü Kursu- Şişli Avukat- Edirne Serbest Muhasebeci- Çorlu Etüt- İstanbul Botanik- Çorlu Sigorta- Kağıt Bardak- Kaplan Tekstil- Çorlu Perde- Çorlu Havuz- Makina- Danışmazlar-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden