Koşullu veri ekleme makrosu

[kayserciyes]

merhaba arkadaşlar
1z 2z 3z gibi sayfalarda seçilen isim için girilen bilgiler
veri adlı sayfaya o ismin karşısına ilgili bölüme aktarılacak

örnek dosya ekte
yardımlarınız için teşekkür ediyorum

 

[uzmanamele]

merhaba

bunu deneyiniz.

Sub aktar()
isim = Range("e2").Text
bolum = Range("d2").Value & ".BÖLÜM"
    satir = Sheets("veri").Cells.Find(What:=isim, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Row
    sutun = Sheets("veri").Cells.Find(What:=bolum, After:=ActiveCell, LookIn:=xlValues, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False).Column

soru_sayisi = [IV2].End(1).Column

Range(Cells(2, 6), Cells(2, soru_sayisi)).Select
Selection.Copy
Sheets("veri").Select
Sheets("veri").Cells(satir, sutun).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False

Application.CutCopyMode = False
End Sub

 

[kayserciyes]

HOCAM FORMÜLÜN AŞAĞIDAKİ KISMI HATA VERİYOR
ilginiz için teşekkür ederim hocam

sutun = Sheets("veri").Cells.Find(What:=bolum, After:=ActiveCell, LookIn:=xlValues, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Column

 

[kayserciyes]

hocam birde her sayfa için ayrı ayrı kodu çoğalta bilirim
kolay olması açısından siz sadece
1z sayfasındaki veriyi hangi öğretmene aitse veri sayfasında bulup karşısına kopyalasın yeter

 

[uzmanamele]

merhaba

hatanın sebebi bölüm nosunun eksik yazılmasındandır.
veri sayfasında, 1.BÖLÜM, 2.BÖLÜM vs şeklinde yazınız.
tek bir kod tüm öğretmen isimli sayfalarda geçerlidir.
ana, list, veri sayfaları üzerinden çalıştırırsanız hata verir.

 

[kayserciyes]

Teşekkürler hocam onu ogün geç fark ettim dediğiniz gibi yapıp uygulamıştım

istediğim gibi olmuş sağ olun