sütün ve satırlara değerleri yapıştır.

[gokhanbek]

örneğin isim 8 08.04.2011 - 14.04.2011 arsına "x" koymak istiyorum ama bunu forumla veya başka bir sayfa ile yapmak istiyorum nasıl olur


satır ve sütun otomatik yapıştır.

 

[Orion1]

Dosyanız ektedir.

Sub kaydet_59()
'coder: evrengizlen@hotmail.com
'25.04.2011
Dim sh As Worksheet, sat As Long, k As Range, i, sut As Integer
Set sh = Sheets("puantaj")
Sheets("giriş").Select
sat = sh.Cells(65536, "A").End(xlUp).Row
If sat < 2 Then Exit Sub
Set k = sh.Range("A2:A" & sat).Find(Range("B1").Value, , xlValues, xlWhole)
If k Is Nothing Then
    MsgBox "[ " & Range("B1").Value & "]   Bulunamadı.", vbCritical, "U Y A R I"
    Set k = Nothing: Set sh = Nothing
    Else
    sat = k.Row
End If
Set k = Nothing
sut = Range("C2").Value
sh.Range("B" & sat & ":IV" & sat).Value = ""
For i = CDate(Range("B2").Value) To CDate(Range("B3").Value)
    sh.Cells(sat, sut).Value = Range("B4").Value
    sut = sut + 1
Next i
MsgBox "İşlem tamamlandı." & vbLf & "evrengizlenqhotmail.com" & vbLf & "25.04.2011", vbOKOnly + vbInformation
Set sh = Nothing
End Sub

 

[gokhanbek]

sağol üstat teşekkür ederim