Excel Forum
ALTIN ÜYELİK Hakkında Bilgi


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

DUYURU SİSTEMİ / REKLAM PANOSU

Makro-VBA Makro veya VBA ile ilgili sorularınızı buraya gönderebilirsiniz.
Dosya ekleyebilirsiniz

Özel Arama


Yanıtla
 
Paylaş Konu Araçları Görünüm Modları
Eski 18-04-2017, 22:18   #1
ulucc
 
Giriş: 04/04/2017
Mesaj: 8
Excel Vers. ve Dili:
2010 vba
Varsayılan eğer değer yok ise tablo sonuna ekleme

Arkadaşlar Merhaba,

sürekli olarak tablo yapmak durumunda kaldığım bir işte çalışıyorum. Bu konuda biraz yardımınıza ihtiyacım var.

H sütununda olan bir yazı A sütununda herhangi bir hücre ile eşleşiyorsa E sütunu + 1 yapmalıyım.

Eğer hiçbir hücre ile de eşleşmiyorsa tablonun a sütununun en alt kısmına H sütunundaki yazıyı eklemem gerekiyor.

Ben işin içinden bir türlü çıkamadım. çok fazla kalem var ve tek tek bitmiyor.
Yardımcı olabilir misiniz?

https://drive.google.com/file/d/0B78...ew?usp=sharing

teşekkürler,

Uluç
ulucc Çevrimdışı   Alıntı Yaparak Cevapla
Eski 18-04-2017, 22:39   #2
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,872
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Merhaba,

Anladığım:

H2 değerini A sütununda arar, bulursa bulduğu satırın E sütunundaki karşılıklarına +1 sayı ekler. Bulamazsa A sütununda son boş hücreye H2 değerini ekler.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Bul_Ekle()
    
    Dim c As Range, Adr As String, son As Long
    
    son = Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    With [A:A]
        Set c = .Find([H2], , xlValues, xlWhole)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                Cells(c.Row, "E") = Cells(c.Row, "E") + 1
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        Else
            Cells(son, "A") = Range("H2")
        End If
    End With
    
End Sub
.
__________________
.
Ömer Çevrimdışı   Alıntı Yaparak Cevapla
Eski 20-04-2017, 22:30   #3
ulucc
 
Giriş: 04/04/2017
Mesaj: 8
Excel Vers. ve Dili:
2010 vba
Varsayılan

Merhaba,

ilginiz için çok teşekkür ederim. ek birşey sormak istiyorum örneğin sayfa1 deki bir değeri sayfa iki içinde aynı şartlarda aratmak istesem nasıl yapabilirim?
ulucc Çevrimdışı   Alıntı Yaparak Cevapla
Eski 21-04-2017, 15:53   #4
Ömer
Moderatör
 
Ömer kullanıcısının avatarı
 
Giriş: 18/08/2007
Şehir: Kuşadası
Mesaj: 18,872
Excel Vers. ve Dili:
Excel 2010 Türkçe
Varsayılan

Sayfa adlarını tanımlayıp hücrelerde kullanmanız yeterli olur.

Sayfa2 B1 deki değeri Sayfa1 de aynı tabloda arayarak, aynı işlemleri yapar.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Sub Bul_Ekle()
    
    Dim c As Range, Adr As String, son As Long
    Dim S1 As Worksheet, S2 As Worksheet
    
    Set S1 = Sheets("Sheet1")
    Set S2 = Sheets("Sheet2")
    
    son = S1.Cells(Rows.Count, "A").End(xlUp).Row + 1
    
    With S1.[A:A]
        Set c = .Find(S2.[B1], , xlValues, xlWhole)
        If Not c Is Nothing Then
            Adr = c.Address
            Do
                S1.Cells(c.Row, "E") = S1.Cells(c.Row, "E") + 1
                Set c = .FindNext(c)
            Loop While Not c Is Nothing And c.Address <> Adr
        Else
            S1.Cells(son, "A") = S2.Range("B1")
        End If
    End With
    
End Sub
.
__________________
.
Ömer Ç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 13:10


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

Excel Eğitimi - Mobil Uygulama - Çorlu - Çorlu Web Tasarım - Tarot Falı - invest in turkey - Lingerie - Dyeing Machine - Karton Bardak- Çorlu Özel Eğitim- Site Yönetimi- Led Aydınlatma- Pronet Tekirdağ- Çorlu Kamera- Pronet Edirne- Pronet Kırklareli- Pronet Çerkezköy- Pronet Çorlu- Pronet Lüleburgaz- Pronet Keşan- Çorlu Araç Takip- Çorlu Su Arıtma- Boru Profil- Gebze Emlak- Beylikdüzü Temizlik- İstanbul Burun Estetiği- Bakır Sülfat- Rampa- Rotary- Çorlu İnternet Sitesi- youngblood- Çorlu Palet- Çerkezköy Palet-
Powered by vBulletin Version 3.7.2
Copyright ©2000 - 2017, Jelsoft Enterprises Ltd.
Advertisement System V2.6 By   Branden