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 11-01-2018, 22:22   #1
alirizapekbilir
Altın Üye
 
Giriş: 11/02/2016
Şehir: ANTALYA
Mesaj: 135
Excel Vers. ve Dili:
2013
Varsayılan mükerrer kayıt girişini engelleme

D6 : D205 sütununa mükerrer kayıt girişini engellemek istiyorum nasıl yapabilirim.
alirizapekbilir Çevrimiçi   Alıntı Yaparak Cevapla
Eski 11-01-2018, 22:24   #2
Mustafa MUTLU
Destek Ekibi
 
Mustafa MUTLU kullanıcısının avatarı
 
Giriş: 24/07/2008
Şehir: Kayseri
Mesaj: 1,508
Excel Vers. ve Dili:
2003
Varsayılan

Kaydı Form aracılığı ile mi yapıyorsun ?
__________________

EXCEL 2003
EXCEL 2007
Mustafa MUTLU Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2018, 22:28   #3
alirizapekbilir
Altın Üye
 
Giriş: 11/02/2016
Şehir: ANTALYA
Mesaj: 135
Excel Vers. ve Dili:
2013
Varsayılan MErhaba

Hayır kayıt veridoğrulama ile listeden geliyor. makro olması gerekir diye düşünüyorum. =EĞERSAY(D : D;D6)=1 kullanacaktım o zaman listem bozulacak.

Bu mesaj en son " 11-01-2018 " tarihinde saat 22:35 itibariyle alirizapekbilir tarafından düzenlenmiştir....
alirizapekbilir Çevrimiçi   Alıntı Yaparak Cevapla
Eski 11-01-2018, 22:39   #4
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,480
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Afaki soru sormak yerine,
gerçek belge ile aynı yapıda ve kullandığınız veri doğrulamalar da içerisinde ve
çalışır durumda olacak şekilde bir örnek belge hazırlayıp,
sorunuzu bu örnek belge üzerinden sormak sonuca ulaşmanızı kolaylaştırır.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2018, 22:43   #5
Mustafa MUTLU
Destek Ekibi
 
Mustafa MUTLU kullanıcısının avatarı
 
Giriş: 24/07/2008
Şehir: Kayseri
Mesaj: 1,508
Excel Vers. ve Dili:
2003
Varsayılan

Sayfanın kod bölümüne aşağıdaki kodları kopyalatıp yapıştırın.

Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
Dim adr As Variant
If Intersect(Target, Range("d6:d205")) Is Nothing Then Exit Sub
If Target.Cells.Count > 1 Then Exit Sub
If WorksheetFunction.CountIf(Range("D6:D205" & [D205].End(3).Row), Target) > 0 Then
adr = Range("D6:D205" & [d205].End(3).Row).Find(Target, , , 1).Address
MsgBox "Girdiğiniz veri  " & Mid(adr, 2, 1) & Mid(adr, 4, 3) & " nolu hücrede girilmiştir.", vbInformation
Target = ""
Else
Exit Sub
End If
End Sub
__________________

EXCEL 2003
EXCEL 2007

Bu mesaj en son " 11-01-2018 " tarihinde saat 23:02 itibariyle Mustafa MUTLU tarafından düzenlenmiştir....
Mustafa MUTLU Çevrimdışı   Alıntı Yaparak Cevapla
Eski 11-01-2018, 23:36   #6
alirizapekbilir
Altın Üye
 
Giriş: 11/02/2016
Şehir: ANTALYA
Mesaj: 135
Excel Vers. ve Dili:
2013
Varsayılan Örnek

Mustafa bey denedim ama olmadı teşekkürler.

Ömer hocam Örnek ekledim dosya büyük diye eklemek istememiştim. Ocak 2018 sayfası üzerinde aktif olursa makro iyi olacak Ocak 2018 sayfasını çoğaltacağım diğer sayfalarda mükerrer sorgusu yapmayacağım. Teşekkürler
Eklenmiş Dosyalar
Dosya Türü: xlsm Ek Ödeme Bordrosu - 2018.xlsm (443.3 KB, 21 Görüntülenme)
alirizapekbilir Çevrimiçi   Alıntı Yaparak Cevapla
Eski 12-01-2018, 00:06   #7
Ömer BARAN
Uzman
 
Giriş: 08/03/2011
Şehir: ANKARA / İSTANBUL
Mesaj: 9,480
Excel Vers. ve Dili:
Office 2013 TÜRKÇE
Varsayılan

Merhaba.

Sayın MUTLU'nun verdiği kod'da yer alan tüm adres bilgilerindeki D'leri F yapmanız yeterli olur.
Çünkü soru ile örnek belge arasında sütun farklılığı var. İşlemin D sütununda değil F sütununda yapılması gerekiyor.

Ayrıca kod'un sadece Ocak 2018 sayfasında geçerli olması için Sayın MUTLU, kod'u sayfanın kod bölümüne uygulamanızı söylemiş.
Yani kod'u, alt taraftan Ocak 2018 sayfa adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi seçtiğinizde açılan VBA ekranında sağdaki boş alana yapıştırmalısınız.
.
__________________
.
☾✭ İnadına TÜRKÇE ✭☽

-- Sorunuzu, gerçek belgenizle aynı yapıda ve olması gereken sonuçların elle yazıldığı örnek belge ile destekleyiniz.
-- ALTIN ÜYELİK öneriyorum. / FORUM KURALLARInı mutlaka okuyunuz.
-- ALTIN ÜYE olmayanlar, örnek belgeyi dosya.tc, dosya.co gibi bir siteye yükleyip, belgeye erişim adresini verebilir.
-- Özel mesaj ile soru sormayınız. / Geri bildirimde bulunulmayan cevaplarımı siliyorum.
Ömer BARAN Çevrimdışı   Alıntı Yaparak Cevapla
Eski 12-01-2018, 07:57   #8
alirizapekbilir
Altın Üye
 
Giriş: 11/02/2016
Şehir: ANTALYA
Mesaj: 135
Excel Vers. ve Dili:
2013
Varsayılan Merhaba.

Teşekkür ederim Ömer hocam. Mustafa bey teşekkürler kod çalışıyor ama hata veriyor. Daha ilk veriyi girdiğimde Girdiğiniz veri F6 nolu hücrede girilmiştir. uyarısı veriyor.
alirizapekbilir Çevrimiçi   Alıntı Yaparak Cevapla
Eski 13-01-2018, 12:07   #9
Mustafa MUTLU
Destek Ekibi
 
Mustafa MUTLU kullanıcısının avatarı
 
Giriş: 24/07/2008
Şehir: Kayseri
Mesaj: 1,508
Excel Vers. ve Dili:
2003
Varsayılan

Kodları aşağıdaki kod ile değiştirin.
Ocak 2018 sayfasının kod bölümüne aşağıdaki kodları ekleyiniz
Kod: (Rahat kopyalayabilmeniz için tüm kodu seçmenizi sağlar)
Private Sub Worksheet_Change(ByVal Target As Range)
mm1 = ActiveCell.Row * 1
For MSTF = 2 To mm1 - 1
If Cells(mm1, "F") <> "" Then
If Cells(MSTF, "F") = Cells(mm1, "F") Then
MsgBox "Bu kişi daha önce  " & MSTF & " F hücresine girilmiştir"
Cells(mm1, "F") = ""
Exit Sub
End If
End If
Next
End Sub
__________________

EXCEL 2003
EXCEL 2007
Mustafa MUTLU Çevrimdışı   Alıntı Yaparak Cevapla
Eski 13-01-2018, 18:39   #10
alirizapekbilir
Altın Üye
 
Giriş: 11/02/2016
Şehir: ANTALYA
Mesaj: 135
Excel Vers. ve Dili:
2013
Varsayılan

Mustafa hocam teşeklür ederim pazartezi bakacağım.
alirizapekbilir Çevrimiçi   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 09:48


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