Bir sütundaki sayıların arasındaki farkı bulma.

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

Bir sütundaki sayıların arasındaki farkı bulma.

İleti#1)  sevgi123 » 23 Arl 2009 00:00

İyigeceler öncelikle.

Yazıcağım makro programının, A sütunundaki her bir sıradaki sayının, bir üstündeki sayı ile arasındaki farkı bulup C sütununa yazmasını istiyorum. Nasıl bir yol izlemeliyim acaba?

Örnek döküman yüklüyorum, teşekkür ederim şimdiden yardımlarınız için. İyi çalışmalar.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
sevgi123
Yeni Başlamış
 
Adı Soyadı:Sevgi Poyraz
Kayıt: 22 Arl 2009 23:52
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Bir sütundaki sayıların arasındaki farkı bulma.

İleti#2)  Bülent » 23 Arl 2009 09:14

Merhaba Sevgi Bey.
Hoş geldiniz.

Aşağıdaki konu deneyin;

Kod: Tümünü seç
Sub Evn_Karsilastir()
Dim evn As Range 'Rem excelvba.net
Dim evn_sayi1 As Integer, evn_sayi2 As Integer, evn_fark As Integer
For Each evn In Worksheets("Sheet1").Range("A2:A" & Range("A65530").End(3).Row)
    evn_sayi1 = Int(VBA.Replace(evn.Value, "gün", ""))
    evn_sayi2 = Int(VBA.Replace(evn.Offset(-1, 0).Value, "gün", ""))
    evn_fark = evn_sayi1 - evn_sayi2
    Worksheets("Sheet1").Range("C" & Worksheets("Sheet1").Range("C65530").End(3).Row + 1) = evn_fark
Next evn
MsgBox "İşlem tamam!", vbInformation, "www.excelvba.net"
End Sub
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 00:08
Meslek: Bilgi Sistemleri
Yaş: 42
İleti: 3628
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

Cevap: Bir sütundaki sayıların arasındaki farkı bulma.

İleti#3)  sevgi123 » 23 Arl 2009 12:16

Teşekkür ederim yalnız bu programda 5 karakterden fazlasını bulamıyor.. Benim de elimde 9 basamaklı 8 basamaklı rakamlar olduğu için error veriyor. Nasıl bir çözüm yolu bulabiliriz buna?
Kullanıcı avatarı
sevgi123
Yeni Başlamış
 
Adı Soyadı:Sevgi Poyraz
Kayıt: 22 Arl 2009 23:52
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Bir sütundaki sayıların arasındaki farkı bulma.

İleti#4)  Bülent » 23 Arl 2009 12:55

Dim evn_sayi1 As Integer, evn_sayi2 As Integer, evn_fark As Integer

şeklinde olan komut satırındaki "Integer" yazılarını "Long" olarak,

evn_sayi1 = Int(VBA.Replace(evn.Value, "gün", ""))
evn_sayi2 = Int(VBA.Replace(evn.Offset(-1, 0).Value, "gün", ""))

şeklindeki "Int" yazılaları da "Lng" olarak, değiştirip deneyin.
(Ücretli program talepleriniz için iletişime geçebilirsiniz, excelvbprogram@ gmail.com)
Kullanıcı avatarı
Bülent
Yönetim Kurulu
 
Adı Soyadı:Bülent ÖZTÜRK
Kayıt: 15 Haz 2008 00:08
Meslek: Bilgi Sistemleri
Yaş: 42
İleti: 3628
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İst/Çekmeköy

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

Cevap: Bir sütundaki sayıların arasındaki farkı bulma.

İleti#5)  sevgi123 » 23 Arl 2009 13:18

Hayır olmadı =\
Kullanıcı avatarı
sevgi123
Yeni Başlamış
 
Adı Soyadı:Sevgi Poyraz
Kayıt: 22 Arl 2009 23:52
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

Cevap: Bir sütundaki sayıların arasındaki farkı bulma.

İleti#6)  sevgi123 » 23 Arl 2009 13:20

Bülent yazdı:evn_sayi1 = Int(VBA.Replace(evn.Value, "gün", ""))
evn_sayi2 = Int(VBA.Replace(evn.Offset(-1, 0).Value, "gün", ""))


Bunları int olarak bırakırsak oluyor. Tamam teşekkür ederim :))
Kullanıcı avatarı
sevgi123
Yeni Başlamış
 
Adı Soyadı:Sevgi Poyraz
Kayıt: 22 Arl 2009 23:52
İleti: 17
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: istanbul

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

Bumerang - Yazarkafe