Benzer Veri Girişi Yapılmış İlk Veriyi Getirme

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

sepulastura

Kullanıcı
Katılım
28 Tem 2022
Mesajlar
118
Merhaba

Elimde bulunan aşağıdaki makro kod düzeneğinde ufak bir ekleme yapmak istiyorum. fakat bilgim gereği biraz kurcalasam da beceremedim siz üstadlarım yardımını rica ederim. Bu kod düzeneğinde H sütununda belirli bir hücreye veri girdiğim zaman eğer aynı sütunda aynı veriden varsa msgbox olarak çıkan uyarı mesajında benzer verilerin olduğu hücre adreslerini yazıyor.

Ben burada şunu istiyorum. veri girişi yaptığım hücrede değilde aslında önceden varolan hücredeki verinin bulunduğu satırdaki C sütunu içerisinde yazan veri bilgisini de msgbox içerisinde yazsın istiyorum

Bilgi ve yardımlarınızı rica ederim
 
Hücre Değerindeki Makroyu Çalıştırma
Dosyadaki Otomatik Açılış Mesajını Engelleme
Çözüm
sepulastura' Alıntı:
üstadım merhaba.

kodu uyguladım %95 hatasız çalışıyor. fakat çok ufak bir hata var. 10.10.10.10 sheetinde veri girincei 20.20.20.20 sheetinde ilgili hücrede aynı veri varsa o uyarı veriyor.
fakat msgbox uyarsını tamam ile geçtiğimde o veriyi yinede yazıp ilgili verileri karşısına getiriyor. halbuki diğer sheettede aynı veri varsa uyarı verdikten sonra veriyi yazdığım hücredeki veri silinmesi gerekmektedir.

bilgi ve yardımlarınızı rica ederim
Genişletmek için tıklayın ...
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(10 satır)
Tarihe göre sırala Oylamaya göre sırala
Mevcut kod düzeneğimde bu şekilde bu kod düzeneği üzerinde bahsettiğim değişikliği uygulamak istiyorum
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(38 satır)
 
Oyla 0 Olumsuz oyla
Üstadım çok teşekkürler senin kodu benim kod ile değiştirdim ok dir. yalnız bu kodun içeriğinde aşağıda kırmızı renkli yazının altındada bir kod düzeneğim var. bu kod düzeneğinde ise ben veriyi yazınca ilgili sheetteen yazdığım veriye karşılık aynı satırdaki ilgili değerlerini getiriyor.
yani bir nevi vlookup yapıyor bana.

buraya kadar herşey normal ben H hücresine bir değer girdiğimde verileri getiriyor ama h hücresinde girdiğim bu veriyi delete ile sildiğimde o gelen veriler geri silinmiyor. önceki kod düzeneğimde delete yapınca o verilerde siliniyordu. konuyla alakalı bilgi ve yardımın olabilir mi çok sevinirim teşekkürler

Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(43 satır)
 
Oyla 0 Olumsuz oyla
'veri girilince TT SİM KARTLAR sheetinden imsi ve sim id bilgilerini getiriyor altındaki kod düzeneği altındaki kod düzeneğinden bahsetmiştim kırmızı renkli olan derken. ama kırmızı renkli olmamış.
 
Oyla 0 Olumsuz oyla
Üstadım emeğine bilgine sağlık. çok güzel olmuş harika.

affına mahcuben çok ufak bir eklenti daha rica edebilir miyim. zira şu an bu durum aklıma geldi ve hani 2 ayrı sayfa olacağı durumu çıktı.

Şöyleki. şimdi ben bu veri girişi yaptığım sheet adı 10.10.10.10 gibi bir şey. bu sheet içerisinde benzer veriyi girmişsem uyarı verip yazmıyor. ama birde 20.20.20.20 diye bir sheetim var. bu simkart sayfasındaki numaraları ben 20.20.20.20 sheetindede h sütununa yazabilirim.

10.10.10.10 sheetinde olan benzer veri girişi sorgusu ve uyarısını ben yazdığımda eğer 20.20.20.20 sheetindede varsa aynı uyarıyı verebilir mi ve msgbox içerisinde yine o sheet adı ve hücre ismini yazabilir mi.

Çok teşekkür ederim
 
Oyla 0 Olumsuz oyla
sepulastura' Alıntı:
Üstadım emeğine bilgine sağlık. çok güzel olmuş harika.

affına mahcuben çok ufak bir eklenti daha rica edebilir miyim. zira şu an bu durum aklıma geldi ve hani 2 ayrı sayfa olacağı durumu çıktı.

Şöyleki. şimdi ben bu veri girişi yaptığım sheet adı 10.10.10.10 gibi bir şey. bu sheet içerisinde benzer veriyi girmişsem uyarı verip yazmıyor. ama birde 20.20.20.20 diye bir sheetim var. bu simkart sayfasındaki numaraları ben 20.20.20.20 sheetindede h sütununa yazabilirim.

10.10.10.10 sheetinde olan benzer veri girişi sorgusu ve uyarısını ben yazdığımda eğer 20.20.20.20 sheetindede varsa aynı uyarıyı verebilir mi ve msgbox içerisinde yine o sheet adı ve hücre ismini yazabilir mi.

Çok teşekkür ederim
Genişletmek için tıklayın ...


VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(43 satır)
 
Oyla 0 Olumsuz oyla
üstadım emeğine bilgine sağlık. test ettim güzel çalışıyor. fakat bir yerde sorun çıkarıyor. h hücresinde veriyi girdim diyelim bastım veriler geldi sonra aslında bu veriyi girmicektim diyip h sütununda girdiğim veriyi sildiğimde msgbox uyarısı yine çıkıyor. 20.20.20.20 sheetinde h3 hücresinde benzer veri girişi vardır diye. yani o sheette de ilk boş hücre olduğundan msgbox uyarısını verdiriyor olabilir
 
Oyla 0 Olumsuz oyla
sepulastura' Alıntı:
üstadım emeğine bilgine sağlık. test ettim güzel çalışıyor. fakat bir yerde sorun çıkarıyor. h hücresinde veriyi girdim diyelim bastım veriler geldi sonra aslında bu veriyi girmicektim diyip h sütununda girdiğim veriyi sildiğimde msgbox uyarısı yine çıkıyor. 20.20.20.20 sheetinde h3 hücresinde benzer veri girişi vardır diye. yani o sheette de ilk boş hücre olduğundan msgbox uyarısını verdiriyor olabilir
Genişletmek için tıklayın ...


VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(47 satır)
 
Oyla 0 Olumsuz oyla
üstadım merhaba.

kodu uyguladım %95 hatasız çalışıyor. fakat çok ufak bir hata var. 10.10.10.10 sheetinde veri girincei 20.20.20.20 sheetinde ilgili hücrede aynı veri varsa o uyarı veriyor.
fakat msgbox uyarsını tamam ile geçtiğimde o veriyi yinede yazıp ilgili verileri karşısına getiriyor. halbuki diğer sheettede aynı veri varsa uyarı verdikten sonra veriyi yazdığım hücredeki veri silinmesi gerekmektedir.

bilgi ve yardımlarınızı rica ederim
 
Oyla 0 Olumsuz oyla
sepulastura' Alıntı:
üstadım merhaba.

kodu uyguladım %95 hatasız çalışıyor. fakat çok ufak bir hata var. 10.10.10.10 sheetinde veri girincei 20.20.20.20 sheetinde ilgili hücrede aynı veri varsa o uyarı veriyor.
fakat msgbox uyarsını tamam ile geçtiğimde o veriyi yinede yazıp ilgili verileri karşısına getiriyor. halbuki diğer sheettede aynı veri varsa uyarı verdikten sonra veriyi yazdığım hücredeki veri silinmesi gerekmektedir.

bilgi ve yardımlarınızı rica ederim
Genişletmek için tıklayın ...
VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(48 satır)
 
Oyla 0 Olumsuz oyla
Çözüm
üstadım merhaba

kod üstünde bende biraz oynama yapmıştım kontrol = True kodunu yanlış yere koymuşum If Target.Value <> "" Then den sonra koyunca ne yazsam siliniyordu sonrasında. doğru yerde olunca sorun çözülmüş oldu :) emeğinize bilginize sağlık çok çok teşekkür ederim.
 
Oyla 0 Olumsuz oyla
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt