Veri Hesaplama

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

Veri Hesaplama

İleti#1)  durakozgur » 04 Nis 2019 20:48

Merhaba,

B de yazılan değeri , A da yazılan değere göre karşılaştırmak ve C de OK yada NOK yazmasını istiyorum. Şimdiden yardımlarınız için teşekkür ederim.

Saygılarımla;

Örnek dosya ekliyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
durakozgur
 
Adı Soyadı:ozgur durak
Kayıt: 05 Kas 2013 01:44
Konum: Çorlu
Meslek: Kalite
Yaş: 40
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: tekirdağ

Cevap: Veri Hesaplama

İleti#2)  durakozgur » 05 Nis 2019 15:30

Yardım eder misiniz?
Kullanıcı avatarı
durakozgur
 
Adı Soyadı:ozgur durak
Kayıt: 05 Kas 2013 01:44
Konum: Çorlu
Meslek: Kalite
Yaş: 40
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: tekirdağ

Cevap: Veri Hesaplama

İleti#3)  cem34 » 05 Nis 2019 16:01

Dosyanız virüs içerdiği uyarısı ile antivirüs programları tarafından indirilmesi engelleniyor.
Virüs tarayıcınız ile denetleyip yeni bir zip ile siteye yüklemeyi deneyin
Kullanıcı avatarı
cem34
Yeni Başlamış
 
Adı Soyadı:cem yılmaz yılmaz
Kayıt: 04 Eyl 2008 21:05
Yaş: 33
İleti: 50
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Veri Hesaplama

İleti#4)  cem34 » 05 Nis 2019 16:07

Bu dosyayı inceleyiniz ..
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
cem34
Yeni Başlamış
 
Adı Soyadı:cem yılmaz yılmaz
Kayıt: 04 Eyl 2008 21:05
Yaş: 33
İleti: 50
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Veri Hesaplama

İleti#5)  veyselemre » 05 Nis 2019 16:33

Kod: Tümünü seç
Sub test()
    For i = 4 To Cells(Rows.Count, 1).End(3).Row
        ver = Cells(i, 2).Value
        If InStr(ver, "±") Then
            sep = "±"
            bl = Split(Replace(ver, ",", "."), sep)
            mn = CDbl(bl(0)) - CDbl(bl(1))
            mx = CDbl(bl(0)) + CDbl(bl(1))
        ElseIf InStr(ver, "-") Then
            sep = "-"
            bl = Split(Replace(ver, ",", "."), sep)
            mn = CDbl(bl(0)) - CDbl(bl(1))
            mx = CDbl(bl(0))
        Else
            sep = "+"
            bl = Split(Replace(ver, ",", "."), sep)
            mn = CDbl(bl(0))
            mx = CDbl(bl(0)) + CDbl(bl(1))
        End If
        bl = Split(Replace(ver, ",", "."), sep)
        hatali = False
        For ii = 4 To 7

            With Cells(i, ii)
                vl = .Value
                If vl >= mn And vl <= mx Then
                    .Interior.Color = xlAutomatic
                Else
                    hatali = True
                    .Interior.Color = vbRed
                End If
            End With
        Next ii

        If hatali Then
            Cells(i, "J") = "NOK"
            Cells(i, "J").Interior.Color = vbRed
        Else
            Cells(i, "J") = "OK"
            Cells(i, "J").Interior.Color = vbRed
        End If
    Next i
End Sub
Kullanıcı avatarı
veyselemre
Siteye Alışmış
 
Kayıt: 28 Nis 2015 15:53
Meslek: SERBEST
Yaş: 104
İleti: 394
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çubuk

Cevap: Veri Hesaplama

İleti#6)  durakozgur » 08 Nis 2019 07:34

Merhaba ,

Yardımlarınız için teşekkür ederim.

Bir kaç hata alıyorum

1- Hücre boş olsa da hesaplama yapıyor.
2- "+" ile ilgili kod da hesap yapmasına rağmen arada bir debug hatası veriyor.

Teşekkür ederim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
durakozgur
 
Adı Soyadı:ozgur durak
Kayıt: 05 Kas 2013 01:44
Konum: Çorlu
Meslek: Kalite
Yaş: 40
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: tekirdağ

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Veri Hesaplama

İleti#7)  durakozgur » 15 Nis 2019 11:36

Merhaba

Yardım
Kullanıcı avatarı
durakozgur
 
Adı Soyadı:ozgur durak
Kayıt: 05 Kas 2013 01:44
Konum: Çorlu
Meslek: Kalite
Yaş: 40
İleti: 8
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: tekirdağ


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: AhrefsBot, Yandex[Bot] ve 2 misafir

Bumerang - Yazarkafe