istenilen formül karşılaştırma

[Hyperhysv]

merhabalar;

yapmaya çalıştığım işlemleri ekteki excel de açıklamaya çalıştım yardımcı olabilirseniz çok sevinirim.

şimdiden teşekkürler
iyi akşamlar

 

[Emir Hüseyin Çoban]

. . .

G2 hücresi için formül, aşağıya doğru çoğaltın.

=EĞER(ETOPLA($A$2:$A$1048576;F2;$B$2:$B$1048576)-EĞERSAY($F$2:F2;F2)=0;"DOĞRU";"YANLIŞ")

. . .

 

[Hyperhysv]

Sn. Hüseyin ÇOBAN çok teşekkürler tam istediğim gibi.sizden bir ricam daha var söz konusu hücrede (g2 ) doğru yazdığında ses çıkarmasını nasıl sağlayabilirim

iyi akşamlar

 

[muygun]

Merhaba;
Syn Hüseyin Çoban'ın formülünü uyguladıktan sonra;
Sayfanın kod bölümüne;

Option Explicit
Private Declare Function PlayIt Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, Range("f:f")) Is Nothing Then Exit Sub
Dim satt, sütt
satt = Target.Row
sütt = (Target.Column) + 1
If Cells(satt, sütt) = "YANLIŞ" Then Exit Sub
DoEvents
If Cells(satt, sütt) = "DOĞRU" Then Call PlayIt("C:\Windows\Media\Ding.wav", 0)
End Sub
'Kodlar Syn. Korhan AYHAN'ın bir çalışmasından modifiye edilmiştir.

Kodlarını uygulayın.

İyi çalışmalar.

 

[Hyperhysv]

Sn. Muygun Desteğiniz için teşekkürler.Sn. Korhan AYHAN banada çok yardımcı olmuştu kendisine bir kez daha teşekkür ederim.

Bu formülde "Doğru" sorgusuna verilen ses efektini aynı hücrede eğer "#YOK" ibaresi görünürse (düşey ara sebebi ile) vermesi için ne yapmam gerekir bir kaç uyarlama denedim fakat başarılı olamadım.

 

[Emir Hüseyin Çoban]

Sn. Muygun Desteğiniz için teşekkürler.Sn. Korhan AYHAN banada çok yardımcı olmuştu kendisine bir kez daha teşekkür ederim.

Bu formülde "Doğru" sorgusuna verilen ses efektini aynı hücrede eğer "#YOK" ibaresi görünürse (düşey ara sebebi ile) vermesi için ne yapmam gerekir bir kaç uyarlama denedim fakat başarılı olamadım.

. . .

Öneri:
Ses efekti kullanmak yerine, koşullu biçimlendirme ile hatalı hücreyi belirgin bir renk vermek daha uygun olabilir.

. . .

 

[Hyperhysv]

öneriniz için çok teşekkürler hüseyin bey ama malesef söz konusu uyarıyı bilgisayarın ses olarak vermesinin sebebi verinin wife sistemi ile excele iletilmesi ve operatörün bilgisayar başında olmaması bu nedenle operatör sisteminden uyarı aldığında gerekli işlemi yapabiliyor.

eğer destek verirseniz beni çok büyük bir dertten kurtarmış olacaksınız.

şimdiden teşekkürler
iyi çalışmalar

 

[Emir Hüseyin Çoban]

. . .

Şu şekilde olabilir. Ama yinede örnek dosya yüklemeniz daha iyi olur. Formüller biraz karıştı gibi. Yukarıdaki tabloda mı kullanacaksınız hata uyarısını, farklı bir tablo mu ?

Option Explicit
Private Declare PtrSafe Function PlayIt Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    If Intersect(Target, Range("f:f")) Is Nothing Then Exit Sub
    Dim satt, sütt
    satt = Target.Row
    sütt = (Target.Column) + 1
    If IsError(Cells(satt, sütt)) Then Call PlayIt("C:\Windows\Media\Ding.wav", 0)
End Sub

. . .

 

[Hyperhysv]

hüseyin bey aslında ben kendime göre uyarladım biraz dosya ekte

şimdiden teşekkürler

 

[Emir Hüseyin Çoban]

. . .

İyi ama burada #YOK hatası verecek bir formül yok ki ?

. . .

 

[Hyperhysv]

hüseyin bey yeniden merhaba;

sol kısımda bulunan barkodların yanında rakamlar var şu an o nedenle göremediniz sanırım ekteki excelde gösterdim

ilginiz için teşekkürler

 

[Emir Hüseyin Çoban]

. . .

Option Explicit
Private Declare Function PlayIt Lib "winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error Resume Next
    If Intersect(Target, Range("F:F")) Is Nothing Then Exit Sub
    Dim satt, sütt
    satt = Target.Row
    sütt = (Target.Column) + 1
    DoEvents
    If Cells(satt, sütt) = "ÜRÜNÜ REYONA ÇIKAR" Or _
        IsError(Cells(satt, sütt)) Then
        Call PlayIt("C:\Windows\Media\1.wav", 0)
    Else
    End If
End Sub

. . .

 

[Hyperhysv]

hüseyin bey çok teşekkürler tam istediğim gibi

desteğiniz için yeniden teşekkürler

iyi akşamlar