Bir sütundaki Veriyi Koşula bağlı Başka Sütuna Alma

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

Bir sütundaki Veriyi Koşula bağlı Başka Sütuna Alma

İleti#1)  gokkurt38 » 28 Kas 2019 20:43

Üstadlar benim bir çalışma sayfam var sağolsun üstadların yardımıyla yüzde 80 hallettim sadece bir sorunum kaldı.
C sütununda belli bir veriyi yazdığında D sütunundaki veriyi H sütununa yazdırmak istiyorum. Ekte resimde anlatmaya çalıştım.
Resim
Kullanıcı avatarı
gokkurt38
Yeni Başlamış
 
Kayıt: 18 Kas 2019 21:02
Meslek: jandarma
Yaş: 37
İleti: 21
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

Cevap: Bir sütundaki Veriyi Koşula bağlı Başka Sütuna Alma

İleti#2)  gokkurt38 » 28 Kas 2019 20:49

resim çok büyük olmuş küçülttüm.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
gokkurt38
Yeni Başlamış
 
Kayıt: 18 Kas 2019 21:02
Meslek: jandarma
Yaş: 37
İleti: 21
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

Cevap: Bir sütundaki Veriyi Koşula bağlı Başka Sütuna Alma

İleti#3)  erseldemirel2 » 28 Kas 2019 21:10

Aşağıdaki gibi olabilir.

Kod: Tümünü seç
Sub hesapla()
sonsatir = Range("A65536").End(3).Row 'a sütunu son dolu satır
For i = 3 To sonsatir ' 3 başlangıc satırı. değişebilir
If Range("C" & i) = "Pay Emir İptal Komisyonu" Then 'eğer c sütunun i satırı "pay..." ise
Range("H" & i) = Range("D" & i) ' H sütunu D gibi olur
End If
Next i
End Sub
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 570
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Cevap: Bir sütundaki Veriyi Koşula bağlı Başka Sütuna

İleti#4)  gokkurt38 » 29 Kas 2019 07:45

erseldemirel2 yazdı:Aşağıdaki gibi olabilir.

Kod: Tümünü seç
Sub hesapla()
sonsatir = Range("A65536").End(3).Row 'a sütunu son dolu satır
For i = 3 To sonsatir ' 3 başlangıc satırı. değişebilir
If Range("C" & i) = "Pay Emir İptal Komisyonu" Then 'eğer c sütunun i satırı "pay..." ise
Range("H" & i) = Range("D" & i) ' H sütunu D gibi olur
End If
Next i
End Sub


Hocam ellerine sağlık. Bu koşulun sayısını arttırabiliyor muyuz? Örn "Pay Emir İptal Komisyonu" "Pay saklama masrafı"
Ellerin dert görmesin....
Kullanıcı avatarı
gokkurt38
Yeni Başlamış
 
Kayıt: 18 Kas 2019 21:02
Meslek: jandarma
Yaş: 37
İleti: 21
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

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

Cevap: Bir sütundaki Veriyi Koşula bağlı Başka Sütuna Alma

İleti#5)  erseldemirel2 » 29 Kas 2019 08:37

operatörler kullanılır. or ve and gibi

If Range("C" & i) = "Pay Emir İptal Komisyonu" or Range("C" & i) = "......yeni kıstas..." Then
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 570
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: Cevap: Bir sütundaki Veriyi Koşula bağlı Başka Sütuna

İleti#6)  gokkurt38 » 29 Kas 2019 11:01

erseldemirel2 yazdı:operatörler kullanılır. or ve and gibi

If Range("C" & i) = "Pay Emir İptal Komisyonu" or Range("C" & i) = "......yeni kıstas..." Then


Hocam Çok Sağolasın.. Hakkın Ödenmez. Ben onları tek tek sağdaki sütunlara yazıyordum. Allah Razı Olsun senden. şkşk
Kullanıcı avatarı
gokkurt38
Yeni Başlamış
 
Kayıt: 18 Kas 2019 21:02
Meslek: jandarma
Yaş: 37
İleti: 21
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: balıkesir

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Bir sütundaki Veriyi Koşula bağlı Başka Sütuna Alma

İleti#7)  erseldemirel2 » 29 Kas 2019 11:28

Rica ederim nedemek kolay gelsin. şkşk
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 570
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya


Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe