if döngüsü hakkında küçük bir soru

[nikomedian]

elseif de birinci şart gerçekleşmezse ikinci şarta baktırıyorduk, ama ben birinci şart gerçekleşsede gerçekleşmesede ikinci şarta bakmasını istiyorum, hangi komutu kullanmalıyım ?

 

[metinozlu]

aşağıdaki kod yapısını kullanmak gerekir sanırım
if.....
......kodlar
goto son:
else
son:
.........

end if

 

[nikomedian]

deniyorum çok sağolun

 

[nikomedian]

buradaki son: senin tanımladığın birşey mi yoksa, goto gibi bir kod mu?

 

[metinozlu]

benim tanımladığım bir ifade siz istediğiniz bir ifade kullanabilirsiniz.

 

[uzmanamele]

merhaba
=eğer(mantıksal_sınama;eğer_doğruysa_değer;eğer_yanlışsa_değer)
bu durumda siz eğer doğruysa değer kısmını atlayacaksanız nasıl bir mantıksal sınama yaptığınızı görmek lazım.
=eğer(a1=1;b1*2;b1*4) farzedelim. bu durumda a1 değeri 1 olsada olmasada b1*4 işlemini yapacaksa bunun için neden eğer kullanıyorsunuz, =b1*4 dersiniz olur biter?
örnek dosyada ne yapmaya çalıştığınızı anlatabilir misiniz?

 

[nikomedian]

Kodu tamamlayamadım yardımcı olursanız sevinirim

Do While Cells(i, 1) <> "Renk"
If (Range("A" & i).Value) = "B" Then
Sheets("katalog").Cells(tmp, 13) = Range("F" & i).Value
ElseIf (Range("A" & i).Value) = "J" Then
Sheets("katalog").Cells(tmp, 15) = Range("F" & i).Value
ElseIf (Range("A" & i).Value) = "K" Then
Sheets("katalog").Cells(tmp, 14) = Range("F" & i).Value
End If
tmp = tmp + 19
i = i + 1
Loop

 

[nikomedian]

Edit : diyorum ki i 'ye bak, e&#287;er b harfi varsa, onun sa&#287;&#305;ndaki F s&#252;tunudaki ilgili yeri sitedi&#287;im yere kopyala, b olsada olmasada j ye bak, K yada bak, bunlar yoksa sonrakine ge&#231;

 

[Ayhan Ercan]

Merhaba

Yukarda vermiş olduğunuz kod ile açıklamanız örtüşmüyor...

b olsa da olmasa da j ye bak

Kodda böyle bişey yok..

Kodda:

eğer b harfi varsa, onun sağındaki F sütunudaki ilgili yeri sitediğim yere kopyala

yok eğer j harfi varsa, onun sağındaki F sütunudaki ilgili yeri sitediğim yere kopyala

yok eğer k harfi varsa, onun sağındaki F sütunudaki ilgili yeri sitediğim yere kopyala

yazıyor...


"b olsa da olmasa da j ye bak k yede bak"
bundan ben bişey anlamakta zorlandım doğrusu...

 

[nikomedian]

module 5 i &#231;al&#305;&#351;t&#305;rarak, &#252;r&#252;n: ve renk aras&#305;ndaki b, k , j leri bularak bunlar&#305;n sat&#305;r&#305;ndaki f'e kar&#351;&#305;l&#305;k gelen h&#252;creleri kopyalay&#305;p. Katalog sekmesindeki cinsi yazan yerin M N O h&#252;crelerine s&#305;ras&#305;yla B, K, J &#351;eklinde yap&#305;&#351;t&#305;rmak istiyorum, bilmem anlatabildim mi ?

 

[Korhan Ayhan]

Selamlar,

A&#351;a&#287;a&#305;daki kodu denermisiniz.

Sub YENİ_FİYATLAR()
    Set S1 = Sheets("tarih")
    Set S2 = Sheets("veri")
    S1.Select
    [M6:O65536].ClearContents
    For Each VERİ In Range("B29:B" & [B65536].End(3).Row)
    If VER&#304;.Value <> "" Then
    Set &#220;R&#220;N = S2.[C:C].Find(VER&#304;.Value)
    If Not &#220;R&#220;N Is Nothing Then
    Set RENK = S2.Range("A" & &#220;R&#220;N.Row & ":A65536").Find("Renk")
    If Not RENK Is Nothing Then
    Set KOD1 = S2.Range("A" & &#220;R&#220;N.Row & ":A" & RENK.Row).Find("B", LookAt:=xlWhole)
    If Not KOD1 Is Nothing Then
    VER&#304;.Offset(0, 11) = S2.Cells(KOD1.Row, "F")
    End If
    Set KOD2 = S2.Range("A" & &#220;R&#220;N.Row & ":A" & RENK.Row).Find("K", LookAt:=xlWhole)
    If Not KOD2 Is Nothing Then
    VER&#304;.Offset(0, 12) = S2.Cells(KOD2.Row, "F")
    End If
    Set KOD3 = S2.Range("A" & &#220;R&#220;N.Row & ":A" & RENK.Row).Find("J", LookAt:=xlWhole)
    If Not KOD3 Is Nothing Then
    VER&#304;.Offset(0, 13) = S2.Cells(KOD3.Row, "F")
    End If
    Set KOD1 = Nothing
    Set KOD2 = Nothing
    Set KOD3 = Nothing
    End If
    End If
    End If
    Next
    Set S1 = Nothing
    Set S2 = Nothing
    MsgBox "Fiyatlar g&#252;ncellenmi&#351;tir.", vbInformation
End Sub

 

[nikomedian]

&#231;ok te&#351;ekk&#252;r ederim