Şarta Göre Makro Devam Ettirme

[delipoyraz5353]

Yardım edecek herkese teşekkürler.
Yapmak istediğim bir makro kodum var.
" If Sheets("Degerler").Range("B2") = "1" Then " ise makro devam etsin. End İf veya Exit Sub kısmından sonraki satırlarda devam etmesin Değilse kodun End İf veya Exit Sub dan sonraki satırdan devam etmesi için

Sitenizden de yardımla böyle bir kod oluşturdum.



Sub İsleGid1()

Sheets("Degerler").Select


If Sheets("Degerler").Range("B2") = "1" Then


Windows("Gidenler.xlsm").Activate
Sheets("Degerler").Select
Range("B5:Y5").Select
Selection.Copy
Windows("Gidenler.xlsm").Activate
Sheets(CStr(sayfa)).Select
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=True


End If
Exit Sub

Windows("işletme.xlsm").Activate
sayfa = Sheets("Degerler").Range("B2")
Sheets("Degerler").Select
Range("B5:Y5").Select
Selection.Copy
Sheets(CStr(sayfa)).Select
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=True


End Sub

 

[Ömer BARAN]

Merhaba.

Sorunuzu, bahsekonu kod içerisinde ve çalışır durumda olacak şekilde örnek belge ile destekelemenizi öneriyorum.
(örnek belge özellikleri ve yükleme ile ilgili açıklamalar cevabımın altındaki İMZA bölümünde var)

İlk olarak arana değer olan 1 sayı mıdır yoksa "1" metni mi? bunu netleştirmelisiniz.
Mevcut haliyle tırnak içerisine eldığınızda METİN anlamına gelir.

Bir de aşağıdaki gibi deneyin.
.

If Sheets("Degerler").Range("B2") = "1" Then Exit Sub

 

[delipoyraz5353]

Cevap beklerken siteden araştırma yaparken benim sorunumu çözecek cevabımı buldum. Lazım olur diye burada da yazıyorum.

Sub İsleGid1()
Sheets("Degerler").Select
If Sheets("Degerler").Range("B2") = "1" Then
Windows("Gidenler.xlsm").Activate
Sheets("Degerler").Select
Range("B5:Y5").Select
Selection.Copy
Windows("Gidenler.xlsm").Activate
Sheets(CStr(sayfa)).Select
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=True
End If
If Sheets("Degerler").Range("B2") = "1" Then
GoTo bitir
Else
Windows("işletme.xlsm").Activate
sayfa = Sheets("Degerler").Range("B2")
Sheets("Degerler").Select
Range("B5:Y5").Select
Selection.Copy
Sheets(CStr(sayfa)).Select
Range("D5").Select
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _
xlNone, SkipBlanks:=False, Transpose:=True
bitir:
End If
End Sub

 

[delipoyraz5353]

Ömer bey cevabınız için teşekkürler. Koddaki 1 sayı idi Bilginiz için tekrar teşekkürler paylaştığım kod gibi sorunumu hallettim.