’ Range(“H5″).Select

 ’With Worksheets(“BUGUN”)

‘ End With

saycikan = 0

 For Each BUGUN In Worksheets(“BUGUN”).Range(“H5:H10″)    

      For Each dun In Worksheets(“DUN”).Range(“H5:H10″)       

      ‘ MsgBox “B” & BUGUN

      ‘MsgBox “D” & DUN

‘ If BUGUN <> dun Then

‘ CIKMIŞ

saycikan = saycikan + 1 

  Sheets(“CIKANLAR”).Select 

‘ il seçim başlangıcını ayarlıyoruz

If saycikan = 1 Then

   Range(“a1″).Select

  ‘ActiveCell = “=DUN!R[" & dun.Row & "]C”

ActiveCell = “=VLOOKUP(BUGUN!R[4]C[7],DUN!R5C8:R500C9,2,0)”

 End If

   ActiveCell.Offset(1, 0).Select

    ‘ test = “=BUGUN!R[4" & dun.Row & "]C”

    ‘MsgBox test

    ‘ ActiveCell.FormulaR1C1 = “=DUN!R[" & dun.Row & "]C”

      ‘ ActiveCell = “=VLOOKUP(BUGUN!H5;DUN!$H$5:$I$500;2;0)”   

      dunformul = “=VLOOKUP(BUGUN!R[4]C[" & dun & "],DUN!R4C7:R500C9,2,0)”

    ‘  MsgBox (dun.Rows)

       ActiveCell = “=VLOOKUP(BUGUN!R[4]C[7],DUN!R5C8:R500C9,2,0)”

      ‘ VLOOKUP(BUGUN!H5:H132;DUN!A:I;2;0)

      ‘ =VLOOKUP(A2;MAHALLELER!$A$2:$B$5;2;0)

     ‘ MsgBox dun.Row

  ‘                     ” =VLOOKUP(A:A;Sheet7!A:B;2;0)

        ‘ End If

       Next dun

Next BUGUN

Office 2010 yeni özellikleri ile yakında piyasaya çıkacak. Microsoft beta sürümünü ücretsiz olarak kullanıcıların hizmetine sundu. Beta sürümüde orjinalinden bir farkı olmaksızın indirip test edebilirisniz.

Microsoft‘un merakla beklenen program paketi Office 2010 Beta olarak yayınlanmaya başladı. Test sürümünü

Yenilik olarak Windows 7 benzerliğiyle dikkat çeken Office 2010′un en büyük özelliği, geliştirilmiş menüleri ve her programın farklı bir renkte çalışması.

Bu konu üzerine daha detaylı bir yazı yazacağım. şuanda tam oalrak inceleyemedim.