- Katılım
- 12 Kasım 2005
- Mesajlar
- 4
- Excel Vers. ve Dili
- excel 2002 tr
çalışma sayfası ctrl+f komutunu kullanarak arama yaptığım zaman aranıcak değere başka bir çalışma sayfasındaki bir hücredeki değeri yazdırmak istiyorum.
yardımlarınız için şimdiden teşekkür ederim.
Range("A17").Select
Windows("geri bildirim.xls").Activate
Range("D16").Select
Selection.Copy
Application.WindowState = xlMinimized
Windows("Veritabanı DATA.xls").Activate
Cells.Find(What:="38674,4144934", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Windows("geri bildirim.xls").Activate
Rows("1:13").Select
Range("A13").Activate
Selection.EntireRow.Hidden = False
Range("C1:C12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Veritabanı DATA.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A2").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Rows("1:12").Select
Range("A12").Activate
Selection.EntireRow.Hidden = True
Range("B19").Select
ActiveCell.FormulaR1C1 = "kayıt yapıldı."
Range("B21").Select
End Sub
yardımlarınız için şimdiden teşekkür ederim.
Range("A17").Select
Windows("geri bildirim.xls").Activate
Range("D16").Select
Selection.Copy
Application.WindowState = xlMinimized
Windows("Veritabanı DATA.xls").Activate
Cells.Find(What:="38674,4144934", After:=ActiveCell, LookIn:=xlFormulas _
, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Windows("geri bildirim.xls").Activate
Rows("1:13").Select
Range("A13").Activate
Selection.EntireRow.Hidden = False
Range("C1:C12").Select
Application.CutCopyMode = False
Selection.Copy
Windows("Veritabanı DATA.xls").Activate
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("A2").Select
Application.CutCopyMode = False
ActiveWorkbook.Save
ActiveWindow.Close
Rows("1:12").Select
Range("A12").Activate
Selection.EntireRow.Hidden = True
Range("B19").Select
ActiveCell.FormulaR1C1 = "kayıt yapıldı."
Range("B21").Select
End Sub