düşeyara

[Yesilyurtlu]

Tebliğ sayfasının A1 hücresinde yazan Görev Yaptığı Kurum Adı'na göre
ve yine tebliğ sayfasındaki istenen bilgileri tüm sayfasından aldırabilmek için;
yardımcı olabilirmisiniz?

 

[Mustafa MUTLU]

Kodu Denermisiniz.

Sub Mustafa()
Dim MM, MSTF, Mustafa_MUTLU1
Mustafa_MUTLU1 = Sheets("tebliğ").Range("A1")
Application.ScreenUpdating = False
Sheets("tüm").Range("B23:L65536").ClearContents
MM = 23
For MSTF = 2 To Sheets("tüm").Cells(65536, "B").End(xlUp).Row
If Sheets("tüm").Cells(MSTF, "C") = Mustafa_MUTLU1 Then
Sheets("tebliğ").Cells(MM, "B") = Sheets("tüm").Cells(MSTF, "D")
Sheets("tebliğ").Cells(MM, "D") = Sheets("tüm").Cells(MSTF, "B")
Sheets("tebliğ").Cells(MM, "G") = Sheets("tüm").Cells(MSTF, "C")
Sheets("tebliğ").Cells(MM, "K") = Sheets("tüm").Cells(MSTF, "E")
Sheets("tebliğ").Cells(MM, "L") = Sheets("tüm").Cells(MSTF, "F")
MM = MM + 1
End If
Next
Application.ScreenUpdating = True
MsgBox Mustafa_MUTLU1 & " İçin Bilgileri Aktardım", vbInformation, "Mustafa MUTLU"
End Sub

 

[Yesilyurtlu]

Sayın Mustafa MUTLU
Ellerine sağlık.Teşekkür ederim

 

[Mustafa MUTLU]

Sayın Mustafa MUTLU
Ellerine sağlık.Teşekkür ederim

Rica ederim..
işinize yaradı ise ne güzel.