Kodlarla kenarlık nasıl atılır

[monsieur]

Merhaba,

bir buton aracılığı ile bilgilerimi bir formdan diğer bir forma aşağıdaki kodlar ile aktarıyorum.

Dim bilgi
For i = 8 To 100
For j = 1 To 14
If Sheets("DATA").Cells(i, j) = "(boş)" Then
bilgi = ""
Else
bilgi = Sheets("DATA").Cells(i, j)
End If
Sheets("RAPOR").Cells(i, j) = bilgi
Next j
Next i

yalnız benim istediğim rapor formunda attığı bilgilere kenarlık atsın. makrodan kodları aldım ama
range (A110) gibi kullanmış ben sayılar kullandığım için bu çalışmıyor.
yani butona koyunca hata veriyor.

bu konuda yardımcı olursanız sevinirim.

Monsieur

 

[monsieur]

Tamam çözdüm sonunda gerek kalmadı
buradan yararlanmak isteyen olursa diye buraya ekliyorum

Dim bilgi
For i = 8 To 50
For j = 1 To 14
If Sheets("DATA").Cells(i, j) = "(boş)" Then
bilgi = ""
Else
bilgi = Sheets("DATA").Cells(i, j)
End If
Sheets("RAPOR").Cells(i, j) = bilgi
    With Sheets("RAPOR").Cells(i, j).Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Sheets("RAPOR").Cells(i, j).Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Sheets("RAPOR").Cells(i, j).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Sheets("RAPOR").Cells(i, j).Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
Next j
Next i

Kolay gelsin herkese

 

[VisuaL.NET]

Tamam çözdüm sonunda gerek kalmadı
buradan yararlanmak isteyen olursa diye buraya ekliyorum

Dim bilgi
For i = 8 To 50
For j = 1 To 14
If Sheets("DATA").Cells(i, j) = "(boş)" Then
bilgi = ""
Else
bilgi = Sheets("DATA").Cells(i, j)
End If
Sheets("RAPOR").Cells(i, j) = bilgi
    With Sheets("RAPOR").Cells(i, j).Borders(xlEdgeLeft)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Sheets("RAPOR").Cells(i, j).Borders(xlEdgeTop)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Sheets("RAPOR").Cells(i, j).Borders(xlEdgeBottom)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
    With Sheets("RAPOR").Cells(i, j).Borders(xlEdgeRight)
        .LineStyle = xlContinuous
        .Weight = xlThin
        .ColorIndex = xlAutomatic
    End With
Next j
Next i

Kolay gelsin herkese

monsieur bu kod benim çok işime yarayacak....

xlContinuous => sanırım düz çizgi kodu. Bana Kesikli çizgi gerekli...
Hani gazete kupanlarında varya kesikli çizgiler " __ _ _ __ " bu şekilde olan... .bunun kodunu araştırıyorum. Bileniniz varsa buraya yazarsa çok iyi olacak benim için.... Ben bulabilirsem sizinle paylaşacağım...

Şimdiden Teşekkürler...

 

[Levent Menteşoğlu]

Bunun kodunu makro kaydet yöntemi ile kolaylıkla bulabilirsiniz.


.LineStyle = xlDash

 

[VisuaL.NET]

Bunun kodunu makro kaydet yöntemi ile kolaylıkla bulabilirsiniz.


.LineStyle = xlDash

teşekkürler tam olarak istediğim değil ama buda olur...
bu arada makro kaydet yönetimi nasıl...
ben kodları VB ile yazıyorum...

 

[Levent Menteşoğlu]

EXCEL DERSANESİni incelemenizi öneririm.

http://www.excel.web.tr/viewtopic.php?t=4153

 

[VisuaL.NET]

EXCEL DERSANESİni incelemenizi öneririm.

http://www.excel.web.tr/viewtopic.php?t=4153

Evet buradan istediğimi bulabildim... ve bu yolla baya birşeyler yapılabilir. Bu benim için baya faydalı oldu. Teşekkürler...

Projemi bitirebilirsem burada paylaşıp ne kadar güzel bilgiler aldığımı göstermek isterim...

Teşekkürler...