Dim i As Integer

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

Dim i As Integer

İleti#1)  snrkrmz » 11 Tem 2019 16:44

Aşağıda yazılı olan döngünde İlk 3 koşulun hücre değerleri ile birbirlerine eş değer bir bağlantısı olmadığı için sorunsuz bir şekilde çalışıyor..
4. koşul 1 2 VE 3 ü koşuldaki bütün şart özellikleri barındırdığı için istenilen sonuç yerine her koşuldan bir sonuç alıyor.

4. Kuşulun istenilen sonucu verebilmesi için lütfen yardımcı olabilirmisiniz. Çok deneme yaptım ama tükendim..

Dim i As Integer

For i = 16 To 46

1. Koşul : If Range("D" & i).Value <> "" And Range("E" & i).Value = "-" Then
Range("D" & i).Value = Range("D" & i).Value & (" - ") & BitisMer.Value

2. Koşul: ElseIf Range("D" & i).Value <> "" And Range("F" & i).Value = "-" Then
Range("D" & i).Value = BaslamaMer.Value & (" - ") & Range("D" & i).Value

3. Koşul: ElseIf Range("D" & i).Value <> "" And Range("E" & i).Value <> "" And Range("F" & i).Value <> "" Then
Range("D" & i).Value = BaslamaMer.Value & (" - ") & Range("D" & i).Value & (" - ") & BitisMer.Value


4. Koşul: ElseIf Range("D" & i).Value <>"" And Range("E" & i).Value = ("-") And Range("F" & i).Value = ("-") Then
Range("D" & i).Value = Range("D" & i).Value

End If
Next i

i = Empty
Kullanıcı avatarı
snrkrmz
Yeni Başlamış
 
Kayıt: 24 Haz 2019 23:36
Meslek: İŞÇİ
Yaş: 35
İleti: 15
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ANAKRA

Cevap: Dim i As Integer

İleti#2)  hassan26 » 11 Tem 2019 20:20

Selam
Sen tükendin yardım edecekleri de tüketmeden bir örnek dosya eklesen de üzerine eğilseler ne iyi olurdu:)
Üstadlar belki böylede yardımcı olur ama yardımcı olmak için gönüllü uzman olmayan arkadaşlara kayış yaktırma:)
Kullanıcı avatarı
hassan26
Siteye Alışmış
 
Adı Soyadı:Hasan
Kayıt: 07 Tem 2009 18:03
Konum: istanbul
Meslek: memur
Yaş: 50
İleti: 205
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: B.evler/İST.

Cevap: Dim i As Integer

İleti#3)  Ozan İLGÜN » 11 Tem 2019 21:16

Telefonda uzun mesaj yazamıyorum. Kodunuzu daha anlaşılır bir hale getirdim.
http://notes.io/63Vp
Dördüncü if ile yapmak istediğinizi anlatın. Ve ifin içine girerse olmasını istediğiniz şeyi.
ozan.ilgun@boun.edu.tr

Resim
Kullanıcı avatarı
Ozan İLGÜN
Forum Moderatörü
 
Adı Soyadı:Ozan İlgün
Kayıt: 20 Şub 2013 12:43
Konum: İst. Maltepe
Meslek: Arşivist
Yaş: 33
İleti: 2734
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul




Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google Adsense [Bot] ve 3 misafir

Bumerang - Yazarkafe