SIFIRLAMA

[kardelen79]

Bunu yapabilir miyiz arkadaşlar makro ile A8...A13 Hücrelerini dış veri geliyor anlık devamlı değişiyor

 

[kardelen79]

ben mi anlatamadım arkadaşlar

 

[kardelen79]

arkadaşlar burada yapmak istediğim işlem çalışıyor ama anlık veri geldiğinde ve benim asıl programımda satırları ve sütunlar çok yani daha çok formul hesabı var açtığımız anda excel kapanıyor formuller otamatik hesaplama olduğu zaman oluyor ama el ile ayarlı olduğunda ise problem yok dosya açılıyor yardımcı olursanız sevinirim

 

[Orion1]

Biraz daha açıklama yapmanız gerekiyor.
Bişey anlamadım.
Hücrelere veriler geliyor dediniz.Nersi elle giriliyor , neresi otomatik geliyor.

 

[kardelen79]

A2 ve B2 hücrelerine şartlarımı yazıyorum A8 ve A 13 arasına anlık veri geliyor burdaki sistem şu şekilde şu an çalıyor.
C8 ve C13 deki değerler A2 değerinden küçük B2 değerinden büyük ve son şart T8 ve T13 arasındaki hücreler 0 olması şartıyla ve Bu şartlar hangi satırda sağlıyorsa A8... DEĞERİ B 8... yapıştırması
T sütunudaki değerler sıfırdan büyük herhangi bir rakam olabilir büyük ise şart sağlamadığı için o satır işlem yapmayacak
bu üstteki yüklediğimiz sistem çalışıyor tam istediğim gibi gerçek dosyada satır ve sütunlar biraz daha fazla ve biraz da formül çok sıkıntımız bu satır ve sütunların çok olması bize programı açtırmıyor .excel dosyası anında kapanıyor

 

[hamitcan]

Sorunuz karışık geldi. Sorunuzu kısım kısım sorun. Böyle daha çabuk cevap bulabilirsiniz. Ayrıca formülle yapılabilecek bir konu...

 

[kardelen79]

A2 VE B2 Hücrelerine değer yazıyorum (-0,05---0,06 gibi)
A8 ve A13 arasına dış veri geliyor anlık (hersaniye)
C8 ve C13 arasındaki değerler (B8-A8=) Sonucundan oluşuyor iş te burdaki sonuç A2 ve B2 (-0,05 veya 0,06) değerlerinden birinden küçük veya büyük ise birde T8 ile t13 arasındaki değer 0 (sıfır) eşit ise şart sağlanıyor burda macro devreye girip A8 değeri B8 kopyalayıp özel yapıştıracak ve her şart sağlandığında hangi satırda sağlanıyorsa A8 ... Değeri B8 hücresine geçmesini istiyorum
umarım anlatabilimişimdir

 

[hamitcan]

A2 ve B2 (-0,05 veya 0,06) değerlerinden birinden küçük veya büyük ise

A2 ve B2 değerleri arasında mı demek istiyorsunuz ?

 

[kardelen79]

Hayır ikiside ayrı şart düşük ve büyük -0,06 oldugunda şart oluşmuş oluyor.B2 de 0,07 oldugunda şart oluşmuş oluyor

 

[Meryilmaz]

Sorunuzu anladım sanırım. Bu şekilde şartlar sağlandığında B8 en düşük günlük değer olarak ve value olarak yazılmış oluyor.
Açılışta çökmemesi için başlama için bir tuş konulabilir belki. Akşam bakacağım.
Benim sorumun cevabı sizin sorunuzun içinde, anlık bilgiyi ne şekilde alıyorsunuz?

 

[kardelen79]

matrix datadan alıyorum
=GZV("mtrtd";;"ACSEL.ALIS")bu şekilde bir aktarım özelliği var

 

[kardelen79]

en son yolladığım dosya çalışyor veriler çok olunca sistem kitleniyor ve excel açılmıyor ve açık olan tüm excel dosyalarıda kapanıyor

 

[kardelen79]

bu program benim için çok önemli hergün foruma bakıyorum formul kısmında kendime yetecek kadar iyiyim ama macro hiç bilmiyorum ögrenmeyede çalıştım ama olmadı sanırım biraz ezberde gerekli

 

[Ömer]

Merhaba,

Private Sub Worksheet_Calculate()

Kodları doğru sonuç veriyor fakat sistemi kilitliyor sanırım.

Bu şekilde dener misiniz.

Private Sub Worksheet_Calculate()

    Application.ScreenUpdating = False
    Application.Calculation = xlManual

    For i = 8 To 13
    cdegeri = Sayfa1.Range("c" & i).Value
    adegeri = Sayfa1.Range("a2").Value
    bdegeri = Sayfa1.Range("b2").Value
    tdegeri = Sayfa1.Range("t" & i).Value
    
        If cdegeri < adegeri Or cdegeri > bdegeri Then
            If tdegeri = "0" Then
            Application.ScreenUpdating = False
            Sayfa1.Range("a" & i).Copy
            Sayfa1.Range("b" & i).PasteSpecial Paste:=xlPasteValues
            Application.CutCopyMode = False
            Application.ScreenUpdating = True
            End If
        End If
    Next

    Application.Calculation = xlAutomatic
    Application.ScreenUpdating = True
    
End Sub

 

[kardelen79]

programı açamıyorum bu makroyu yükledikten sonra ama formulleri hesaplama seçeneklerinde (el ile veya otomatik ) sekmesi var orada el ile yaptıkyan sonra açılıyor program aksi halde excel dosyası açılmadan kapanıyor

 

[Ömer]

Peki kodları hesaplama seçeneğiyle değilde, butonla çalışacak şekilde düzenlenirse sorun olur mu?

 

[kardelen79]

olur ömer abi bu sistemi ben açtığımda kendisi işlem yapacak akşama kadar

 

[kardelen79]

ömer abi bakabildinizmi tekrar

 

[Ömer]

Program bu kodları kullanıca mı açılmıyor, kodları silince istediğiniz açılma ve hızlanma oluyor mu.

 

[kardelen79]

aynen ömer abi makroyu yüklediğim an sistem kitleniyor tüm excel dosyaları ayrıca kapanıyor