Açılır Liste ile başka sayfaya veri yazdırma ACİL YARDIM!!!

[delikan2377]

Merhaba Arkadaşlar.
Sizlere bir sorum olacak ekte olan çalışma sayfasında giriş ekranında açılır listelerle personel ve tarih seçimi yaparak ikinci sayfaya veri yazdırmak istiyorum. Bu konuda yardımcı olursanız sevinirim.

 

[asi_kral]

Merhaba
Boş bir module oluşturun ve bu kodu deneyin.

Option Explicit
Sub veri_kaydı()
Dim S1 As Worksheet, STN As Long, STR As Long
Set S1 = Sheets(Format(Range("J9"), "mmmm"))
With WorksheetFunction
STN = .Match(Range("G9"), S1.Rows(1), 0)
STR = .Match(Range("J9"), S1.Columns(1), 0)
End With
S1.Cells(STR, STN) = Range("M9").Value
End Sub

 

[delikan2377]

Merhaba
Boş bir module oluşturun ve bu kodu deneyin.

Option Explicit
Sub veri_kaydı()
Dim S1 As Worksheet, STN As Long, STR As Long
Set S1 = Sheets(Format(Range("J9"), "mmmm"))
With WorksheetFunction
STN = .Match(Range("G9"), S1.Rows(1), 0)
STR = .Match(Range("J9"), S1.Columns(1), 0)
End With
S1.Cells(STR, STN) = Range("M9").Value
End Sub

maaalesef olmadı asi_kral

 

[asi_kral]

maaalesef olmadı asi_kral

Nesi olmadı acaba bilgi verir misin_?

 

[kemal turan]

Sn.Asi kral 1967,
Herkesin ihtyacı olabilecek gayet güzel bir çalışma olmuş.
Emeğinize sağlık.

 

[asi_kral]

Sn.Asi kral 1967,
Herkesin ihtyacı olabilecek gayet güzel bir çalışma olmuş.
Emeğinize sağlık.

Kolay Gelsin.