3 Koşullu uyarı hk.

M

manisali451

Katılım
28 Ocak 2010
Mesajlar
92
Excel Vers. ve Dili
Office 2003
Office 2007
Merhabalar;
Şu an kullandığım form da A5-A105 satırları arasını kullanıyorum. 3 koşullu yerine gelmedi ise macro ile uyarı vermesini istiyorum. yardımcı olabilir misiniz?

Yapmasını istediğim A5-A105 aras bir hücre doldurulup karşılığı olan E veya J hücreleri boş bırakılmış ise uyarı versin.

http://dosya.co/lmelvobsv90y/HURDA_F...001).xlsm.html
 
A

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,362
Excel Vers. ve Dili
2019 TR
Merhaba,
Paylaştığınız dosya adresi hatalı, bilginize.
Yapmasını istediğim A5-A105 aras bir hücre doldurulup karşılığı olan E veya J hücreleri boş bırakılmış ise uyarı versin.
Genişletmek için tıkla ...
Çalışma Sayfanızın Kod Bölümüne ekleyinip şu kodları deneyiniz.
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A5:A105")) Is Nothing Then Exit Sub
If Target.Value <> Empty Then
If Target.Offset(0, 4).Value = "" Or Target.Offset(0, 9).Value = "" Then
MsgBox Target.Offset(0, 4).Address & " ya da " & Target.Offset(0, 9).Address & " boş.", vbInformation, "Bilgi"
Target.Select
End If
End If
End Sub
Not: Aynı başlıklı açtığınız diğer paylaşımı görmemiştim. Mükerrer konu olmuş.
 
Son düzenleme:
M

manisali451

Katılım
28 Ocak 2010
Mesajlar
92
Excel Vers. ve Dili
Office 2003
Office 2007
faye_efsane' Alıntı:
Merhaba,
Paylaştığınız dosya adresi hatalı, bilginize.

Çalışma Sayfanızın Kod Bölümüne ekleyinip şu kodları deneyiniz.
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A5:A105")) Is Nothing Then Exit Sub
If Target.Value <> Empty Then
If Target.Offset(0, 4).Value = "" Or Target.Offset(0, 9).Value = "" Then
MsgBox Target.Offset(0, 4).Address & " ya da " & Target.Offset(0, 9).Address & " boş.", vbInformation, "Bilgi"
Target.Select
End If
End If
End Sub
Not: Aynı başlıklı açtığınız diğer paylaşımı görmemiştim. Mükerrer konu olmuş.
Genişletmek için tıkla ...
Teşekkür ederim. Deneyip döneceğim
 
M

manisali451

Katılım
28 Ocak 2010
Mesajlar
92
Excel Vers. ve Dili
Office 2003
Office 2007
faye_efsane' Alıntı:
Merhaba,
Paylaştığınız dosya adresi hatalı, bilginize.

Çalışma Sayfanızın Kod Bölümüne ekleyinip şu kodları deneyiniz.
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A5:A105")) Is Nothing Then Exit Sub
If Target.Value <> Empty Then
If Target.Offset(0, 4).Value = "" Or Target.Offset(0, 9).Value = "" Then
MsgBox Target.Offset(0, 4).Address & " ya da " & Target.Offset(0, 9).Address & " boş.", vbInformation, "Bilgi"
Target.Select
End If
End If
End Sub
Not: Aynı başlıklı açtığınız diğer paylaşımı görmemiştim. Mükerrer konu olmuş.
Genişletmek için tıkla ...
Sayın faye_efsane,
Belirttiğiniz kodu mevcut macro nun altına kopyaladım. A sütununa bir şey yazdığım anda diğer hücreleri doldurmaya fırsat vermeden uyarı veriyor.

Yazar yazma değilde macro çalışmasının sonunda(mevcut macronun altına yapıştırdığım için) uyarı vermesi mümkün mü ?
 
Son düzenleme:
Saban Sertkaya

Saban Sertkaya

Katılım
6 Temmuz 2015
Mesajlar
925
Excel Vers. ve Dili
2003
Sayın faye_efsane'nin kodları düzgün görünüyor. Siz de eklemiş olduğunuz dosyayı kaldırmışsınız. Kısacası kodları düzgün adapte edememişsiniz gibi görünüyor.
 
M

manisali451

Katılım
28 Ocak 2010
Mesajlar
92
Excel Vers. ve Dili
Office 2003
Office 2007
saban20152015' Alıntı:
Sayın faye_efsane'nin kodları düzgün görünüyor. Siz de eklemiş olduğunuz dosyayı kaldırmışsınız. Kısacası kodları düzgün adapte edememişsiniz gibi görünüyor.
Genişletmek için tıkla ...

Sayın faye_efsane'nin kodlarında sorun doğrudur. İlgisine çok teşekkür ederim. Sanırım ben tam ifade edemedim. Macronun çalışma aralığı A6-A105 olacak a hücresi doldurulup karşılığı olan e veya j boş bırakılır ise macro çalıştırıldığı anda uyarı vermesi Sayın faye_efsane'nin kodlarını mevcut macronun altına kopyaladım a hücresine herhangi bir şey yazar yazmaz diğer satıra geçemeden uyarı veriyor. Mevcutta form da tüm yazma işlemleri bitince Kodları doğrula butonuna tıklayıp macro çalıştırılıyor. Sayın faye_efsane'nin yazdığı kodlar önceki macroların sonrasında çalışır ise süper olacak. Dosyayı ekledim.




http://dosya.co/3l8i36m2vum2/HURDA_FORMU_(BZD_02-06FR001).xlsm.html
 
Son düzenleme:
A

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,362
Excel Vers. ve Dili
2019 TR
Merhaba,
İşlerden dolayı Foruma bakamıyordum kusura bakmayın.
Şuanda mesaideyim :) iş arasında moladan fırsat bulup bakabildim.

İlk paylaştığım kod, sayfada işlem yaptığınızda otomatik çalışır.
İlk paylaştığınız mesajdaki bağlantı adresinde dosya olmadığı için bu şekilde yazmıştım. Kullandığınız mevcut kodda şu şekilde kullanabilirsiniz.
Kod: 
For x = 6 To range("A105").End(3).Row
If Cells(x, "A").Value <> Empty Then
If Cells(x, "A").Offset(0, 4).Value = "" Then Cells(x, "A").Offset(0, 4).Interior.Color = 65535
If Cells(x, "a").Offset(0, 9).Value = "" Then Cells(x, "a").Offset(0, 9).Interior.Color = 65535
End If
Next
MsgBox "Boş hücreler Sarı Renk ile belirtildi", vbInformation, "Bilgi"
End Sub satırının üzerine bu kodları ekleyiniz.

***Not: Mevcut kodlarınız Başka bir Excel'e bağlantı yaptığı için, o satırları pasif yaparak bu paylaştığım kodları denedim ve çalışıyor.

Formu doldurup Kodları Doğrula düğmesine bastığınızda; Örnek dosyada boş hücreleri Sarı Renk ile belirlediğiniz için :) bu kodda boş hücreleri bulunca Sarı Renk ile belirler.
 
A

Abdilaka

Katılım
31 Mart 2018
Mesajlar
7
Excel Vers. ve Dili
2010
faye_efsane' Alıntı:
Merhaba,
İşlerden dolayı Foruma bakamıyordum kusura bakmayın.
Şuanda mesaideyim :) iş arasında moladan fırsat bulup bakabildim.

İlk paylaştığım kod, sayfada işlem yaptığınızda otomatik çalışır.
İlk paylaştığınız mesajdaki bağlantı adresinde dosya olmadığı için bu şekilde yazmıştım. Kullandığınız mevcut kodda şu şekilde kullanabilirsiniz.
Kod: 
For x = 6 To range("A105").End(3).Row
If Cells(x, "A").Value <> Empty Then
If Cells(x, "A").Offset(0, 4).Value = "" Then Cells(x, "A").Offset(0, 4).Interior.Color = 65535
If Cells(x, "a").Offset(0, 9).Value = "" Then Cells(x, "a").Offset(0, 9).Interior.Color = 65535
End If
Next
MsgBox "Boş hücreler Sarı Renk ile belirtildi", vbInformation, "Bilgi"
End Sub satırının üzerine bu kodları ekleyiniz.

***Not: Mevcut kodlarınız Başka bir Excel'e bağlantı yaptığı için, o satırları pasif yaparak bu paylaştığım kodları denedim ve çalışıyor.

Formu doldurup Kodları Doğrula düğmesine bastığınızda; Örnek dosyada boş hücreleri Sarı Renk ile belirlediğiniz için :) bu kodda boş hücreleri bulunca Sarı Renk ile belirler.
Genişletmek için tıkla ...


Merhaba bende 3 koşullu bir kopyalama işleminde sorun yaşıyorum kullandığım kodları ekliyorum.

F sütunundaki değer 10-25 arası olanları diğer sayfaya kopyalayabiliyorum ama F değeri 10-25 arası olanlardan sadece G ve H sütunu 100 üstü olanları kopyalayamıyorum.

Yardımcı olur musunuz?

Kod: 
Sub Evn()
    Dim s1 , s2 , s3 As Worksheet
    Dim fdeger As Range
    Dim gdeger As Range
    
    Dim satır As Integer
    satır = 2
      
    Set s1 = Sheets("Sayfa1")
    Set s2 = Sheets("Sayfa2")
    Set s3 = Sheets("Sayfa3")

    Application.ScreenUpdating = False
    
    For Each fdeger In s1.Range("F2:F" & s1.Range("F650536").End(3).Row)
    
   
   
    If (fdeger.Value < 25 And fdeger.Value >= 10) Then
       
       Set gdeger= Cells(Selection.Row, 7)

            If gdeger.Value >100 Then
         
                  satır = satır + 1
                  fdeger.EntireRow.Copy
                  s2.Select
                  Cells(satır, 1).PasteSpecial
                   Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
             End If   
    
                
    End If
   
    Next fdeger
    
    [a2].Select
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
    
       
End Sub
 
M

manisali451

Katılım
28 Ocak 2010
Mesajlar
92
Excel Vers. ve Dili
Office 2003
Office 2007
faye_efsane' Alıntı:
Merhaba,
İşlerden dolayı Foruma bakamıyordum kusura bakmayın.
Şuanda mesaideyim :) iş arasında moladan fırsat bulup bakabildim.

İlk paylaştığım kod, sayfada işlem yaptığınızda otomatik çalışır.
İlk paylaştığınız mesajdaki bağlantı adresinde dosya olmadığı için bu şekilde yazmıştım. Kullandığınız mevcut kodda şu şekilde kullanabilirsiniz.
Kod: 
For x = 6 To range("A105").End(3).Row
If Cells(x, "A").Value <> Empty Then
If Cells(x, "A").Offset(0, 4).Value = "" Then Cells(x, "A").Offset(0, 4).Interior.Color = 65535
If Cells(x, "a").Offset(0, 9).Value = "" Then Cells(x, "a").Offset(0, 9).Interior.Color = 65535
End If
Next
MsgBox "Boş hücreler Sarı Renk ile belirtildi", vbInformation, "Bilgi"
End Sub satırının üzerine bu kodları ekleyiniz.

***Not: Mevcut kodlarınız Başka bir Excel'e bağlantı yaptığı için, o satırları pasif yaparak bu paylaştığım kodları denedim ve çalışıyor.

Formu doldurup Kodları Doğrula düğmesine bastığınızda; Örnek dosyada boş hücreleri Sarı Renk ile belirlediğiniz için :) bu kodda boş hücreleri bulunca Sarı Renk ile belirler.
Genişletmek için tıkla ...

Çok teşekkür ederim Sayın faye_efsane
 
A

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,362
Excel Vers. ve Dili
2019 TR
Merhaba,
Rica ederim Sn. manisali45, iyi çalışmalar.
-----------------------------------------------------------------------------
Sn. Abdilaka; sizin sorunuz da açmış olduğunuz konuda çözülmüş. :) iyi çalışmalar.
 
M

manisali451

Katılım
28 Ocak 2010
Mesajlar
92
Excel Vers. ve Dili
Office 2003
Office 2007
faye_efsane' Alıntı:
Merhaba,
Rica ederim Sn. manisali45, iyi çalışmalar.
-----------------------------------------------------------------------------
Sn. Abdilaka; sizin sorunuz da açmış olduğunuz konuda çözülmüş. :) iyi çalışmalar.
Genişletmek için tıkla ...
Sayın faye_efsane
Çok özür dileyerek bir şey daha sormak istiyorum. Mümkün ise

Son yazmış olduğunuz kodlarda ki MsgBox uyarısı sadece boş hücre tespiti sonrası gelse olabilir mi ? Tüm veriler şartlara uygun doldurulmuş ise o uyarı gelmese çok daha iyi olacak gibi

"For x = 6 To range("A105").End(3).Row
If Cells(x, "A").Value <> Empty Then
If Cells(x, "A").Offset(0, 4).Value = "" Then Cells(x, "A").Offset(0, 4).Interior.Color = 65535
If Cells(x, "a").Offset(0, 9).Value = "" Then Cells(x, "a").Offset(0, 9).Interior.Color = 65535
End If
Next
MsgBox "Boş hücreler Sarı Renk ile belirtildi", vbInformation, "Bilgi"
 
A

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,362
Excel Vers. ve Dili
2019 TR
Merhaba,
Mesaj satırını silip kullanınız. :)
Kayıt sonrası Boş Hücre olursa eğer Renk ile belirtiyor nede olsa.
Boş Hücre olmazsa herhangi bir tepki vermez.
Bu şekilde işlemi az satır ile bitirmiş olursunuz. :)
 
M

manisali451

Katılım
28 Ocak 2010
Mesajlar
92
Excel Vers. ve Dili
Office 2003
Office 2007
faye_efsane' Alıntı:
Merhaba,
Mesaj satırını silip kullanınız. :)
Kayıt sonrası Boş Hücre olursa eğer Renk ile belirtiyor nede olsa.
Boş Hücre olmazsa herhangi bir tepki vermez.
Bu şekilde işlemi az satır ile bitirmiş olursunuz. :)
Genişletmek için tıkla ...
Teşekkürler faye_efsane istediğimi aşağıdaki gibi çözdüm.

For x = 6 To Range("A106").End(3).Row
If Cells(x, "A").Value <> Empty Then
If Cells(x, "A").Offset(0, 4).Value = "" Then Cells(x, "A").Offset(0, 4).Interior.Color = 255
If Cells(x, "a").Offset(0, 9).Value = "" Then Cells(x, "a").Offset(0, 9).Interior.Color = 255
If Cells(x, "A").Offset(0, 4).Value = "" Then MsgBox "DOLDURMADIĞINIZ HÜCRELER VAR", vbCritical, "UYARI"
If Cells(x, "a").Offset(0, 9).Value = "" Then MsgBox "DOLDURMADIĞINIZ HÜCRELER VAR", vbCritical, "UYARI"

End If
Next
End Sub
 
A

AdemCan

Altın Üye
Destek Ekibi
Katılım
1 Eylül 2008
Mesajlar
1,362
Excel Vers. ve Dili
2019 TR
Merhaba,
Rica ederim.
Not: Bu şekilde, her boş hücrede mesaj uyarısı çıkar, bilginize.
İyi çalışmalar. :)
 
M

manisali451

Katılım
28 Ocak 2010
Mesajlar
92
Excel Vers. ve Dili
Office 2003
Office 2007
Sn. faye_efsane

Çok güzel çalışıyor. Bu işlemin tam tersi için ne yapmalıyım? Örneğin E veya J hücresi doldurulup A hücresi boş bırakılır ise aynı uyarıyı vermesini istiyorum.


"For x = 6 To Range("A106").End(3).Row
If Cells(x, "A").Value <> Empty Then
If Cells(x, "A").Offset(0, 4).Value = "" Then Cells(x, "A").Offset(0, 4).Interior.Color = 255
If Cells(x, "a").Offset(0, 9).Value = "" Then Cells(x, "a").Offset(0, 9).Interior.Color = 255
If Cells(x, "A").Offset(0, 4).Value = "" Then MsgBox "DOLDURMADIĞINIZ HÜCRELER VAR", vbCritical, "UYARI"
If Cells(x, "a").Offset(0, 9).Value = "" Then MsgBox "DOLDURMADIĞINIZ HÜCRELER VAR", vbCritical, "UYARI" "
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst