Makro ile kopyalama yaparken eğer ile yapmak

[bthn35]

Merhaba arkadaşlar,
Aşağıdaki gibi bir makro kullanıyorum ve 16. satırdaki H9:T19 yazan yeri eğer formülü gibi sürekli değişsin istiyorum. Mesela O8 hücresi KS ile başlıyorsa; H9:T9, F ile başlıyorsa H10:T19 gibi birden cok yapmak istiyorum. Boyle birsey mumkun mu?

 

[ÖmerFaruk]

Gönderdiğiniz dosyada O8 hücresinde bir şey yazmıyor.
Yine de dediğiniz olur.
Range("H9:T19").Select satırını silin. yerine aşağıdaki gibi satırları yazın

' Önceki kodlarınız'
    If Left(Range("O8"), 2) = "KS" Then Range("H9:T19").Select: GoTo Devam
    If Left(Range("O8"), 1) = "F" Then Range("H10:T10").Select: GoTo Devam
    If Left(Range("O8"), 4) = "KAYA" Then Range("H88:T19").Select: GoTo Devam
    ' kendinize göre uyarlayabilirisiniz.
Devam:
' sonraki kodlarınız'

 

[bthn35]

Evet haklisiniz alanlari doldurmayi unuttum ancak bu kodlarla denedigimde de calismadi. EK'teki excel'de hem sizin kodlari ekledim hemde boş alanları doldurdum

 

[ÖmerFaruk]

Konuyu açarken olan sorunuzda bir problem görmedim.
bir önceki mesajda eklediğiniz dosyayı da açtım O8 de KS ile başlayan ibare var var ve kodlar düzgün çalışıyor.

 

[bthn35]

Teşekkür ederim, H9:T9 istemiştim H9:T19 yazmışsınız şimdi farketim, onu düzeltince ornekteki excel'de çalıştı

 

[ÖmerFaruk]

Ok. Tespit edip düzelttiyseniz ne ala. Kolay gelsin