Kod ile düşeyara formülü kullanımı

  • Konuyu başlatan Konuyu başlatan selis
  • Başlangıç tarihi Başlangıç tarihi

selis

Kullanıcı
Katılım
17 Mar 2021
Mesajlar
721
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
@selis

-- Alt taraftan Sheet1'in adına sağ tıklayıp KOD GÖRÜNTÜLEyi seçin,
-- Açılacak VBA ekranında sağdaki boş alana şu kodu yapıştırın.
Hesaplama örnek belgedeki kural isimli sayfaya göre yapılır.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(5 satır)
 
Oyla 0 Olumsuz oyla
B ve C sütununda hücre içeriğini silince ilgili verinin de silinmesi için en iyisi şu satırı da tam ortaya ekleyin.

If Target = Empty Then: Target.Offset(0, 2) = Empty: Exit Sub

Önceki cevabıma ekledim.
 
Oyla 0 Olumsuz oyla
Hocam tekrar merhaba, ekteki dosyada formülü kullanamadım aslında saat verileri ama nedense saat olarak gelmiyor o yuzden kodda calısmadı ne yapabilirim? Teşekkür ederim.
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
@selis
Gerçek belgenizdeki SAAT verileri SAYISAL değil METİN olduğu için bu sorunu yaşıyorsunuz.
Kodda, ilgili yere kırmızı renklendirdiğim kısmı ekleyince düzelir.
........ Evaluate("=VLOOKUP(1*" & Targ..........
 
Oyla 0 Olumsuz oyla
Açılış mesajınızdaki ilgili kısım şöyle:
selis' Alıntı:
.....ekteki dosyada B ve C hücresine değer girdiğimde sayfada otomatik E ve F hücresindeki formülller kodla hesaplansın istiyorum.......
Genişletmek için tıklayın ...

Yani verileri elle gireceğinizi varsaymış idim.
Mevcut stok veriniz için ya ayrı bir kod oluşturulmalı ya da B ve C sütunundaki dolu hücreleri için F2+ENTER işlemi yapılmalı.
 
Oyla 0 Olumsuz oyla
-- Ya en baştan en sona kadar J ve K sütunu hücreleri için birer kez F2+ENTER işlemi yapacaksınız (daha önce verdiğim kod işlemi yapar),
-- Ya da şu kodu çalıştırın.

VBA: 
İndirmek için giriş yapmanız gerekmektedir.
(6 satır)
 
Oyla 0 Olumsuz oyla
Yanıt için giriş yapmanız veya üye olmanız gerekir.
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst Alt