ctrl F

[gazolay]

ctrl f yapınca arıyoruzya...buluyor ama renkleri çok silik şöyle aradığını bulunca daha canlı bir renk olmuyormu

 

[netzone]

Silik diye ifade etiğiniz yer neresi? Gayet okunaklı eve belirgin görünmekte..

*Konu açarken sorunuza ilişkin Dosya, Resim veya benzer şekillerde örnekleme yaparak sorunuzu yöneltiniz ki gereksiz yazışmalar olmasın.
Zira yazdıklarınızla neyi ifade etmeye çalıştığınızı anlamak kolay olmuyor.

 

[gazolay]

BURA DEĞİL GÜZEL İNSAN BULDUĞU YER...

 

[netzone]

Standart seçim alanının rengini maalesef manuel değiştiremiyorsunuz. Tablonuzda kullandığınız renklerden dolayı çerçeveyi gözleriniz ayırt etmiyor.
Bunu yerine Bu bağlantıda yer alan dosyada görebileceğiniz gibi seçili alanı satır ve sütunlarını kesiştiren bir belirteç ekleyebilirsiniz.
veya Office teması değiştirme ile ilgili internetde araştırma yapınız.

(!) Ayrıca belirtmemde fayda olduğunu düşündüğüm diğer konu: Mesajlarınızda ve Oluşturduğunuz konuların başlığında tamamını büyük harf ile yazmayınız. Forum kurallarına aykırıdır.

 

[gazolay]

üzücü bir sonuç çok insanın sıkıntı çektiği bir iş
pekala o sizi bahsettiğiniz ben kullanıyorum bu sitede daha önce bir arkadaş sağ olsun bu kodu bana vermişti
ben başka bir şey öğrenmek istiyorum ben macro girdiğim bir exele başka macro giremezmiyim 1 resimde sizin macro var çalışıyor şu 2 resim orada ibanlar için macro var ama başka macro gireceğim onu nasıl yapacazz

 

[netzone]

Aynı Sayfa-Modül içinde alt alta makrolar girebilirsiniz. Zaten yeni bir makro koduna başladığınızda üstündeki ile arasına bir ayırıcı bir çizgi çektiğini göreceksiniz.

 

[gazolay]

ThisWorkbook işlemler exeldeki tüm eklerimi etkiliyor veya nedir bu ThisWorkbook (birde bu sarı kaldı daha gitmiyor neden )
bir öndemi sorumda şu ezele o kadar kod giriyoruz sonrasında ilem tamam sonuç olarak bir tuş varmı tüm kodları iptal edecek defaul haline gelecek ama sonuç bozulmayacak

 

[netzone]

Bu bağlantıdan bilgi sahibi olabilirsiniz.

 

[gazolay]

Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean)
Call SekilSil
End Sub

Private Sub Workbook_Deactivate()
Call SekilSil
End Sub

Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Call SekilSil(Sh)
End Sub

Private Sub Workbook_SheetDeactivate(ByVal Sh As Object)
Call SekilSil(Sh)
End Sub

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
Call SekilYap
End Sub

Private Sub SekilYap(Optional xxxx As Boolean)
Dim SatirCizgisi1 As Shape
Dim SutunCizgisi1 As Shape
Dim SatirCizgisi2 As Shape
Dim SutunCizgisi2 As Shape

Application.ScreenUpdating = False
On Error Resume Next

Set SatirCizgisi1 = ActiveSheet.Shapes("SatirCizgisi1")
Set SutunCizgisi1 = ActiveSheet.Shapes("SutunCizgisi1")
Set SatirCizgisi2 = ActiveSheet.Shapes("SatirCizgisi2")
Set SutunCizgisi2 = ActiveSheet.Shapes("SutunCizgisi2")

If SatirCizgisi1 Is Nothing Then
Set SatirCizgisi1 = ActiveSheet.Shapes.AddShape(msoShapeRectangle, 0, ActiveCell.Top, ActiveCell.Left, ActiveCell.Height)
With SatirCizgisi1
.Name = "SatirCizgisi1"
.Line.Weight = 1.5 'cizginin kalinliğini değiştirir
.Line.ForeColor.SchemeColor = 10 'çizginin rengini değiştirir
.Fill.Solid
.Fill.Visible = msoTrue ' dikdörtgenin için renkli olsun istersen msoTrue yap
.Fill.Transparency = 0.75 ' fill.visible=msoTrue iken işe yarar, saydamlık ayarı
.Fill.ForeColor.SchemeColor = 44 'fill.visible=msoTrue iken işe yarar, arka plan rengi
End With
End If
If SatirCizgisi2 Is Nothing Then
Set SatirCizgisi2 = ActiveSheet.Shapes.AddShape(msoShapeRectangle, ActiveCell.Offset(0, 1).Left, ActiveCell.Top, ActiveSheet.Columns.Width - ActiveCell.Left, ActiveCell.Height)
With SatirCizgisi2
.Name = "SatirCizgisi2"
.Line.Weight = 1.5 'cizginin kalinliğini değiştirir
.Line.ForeColor.SchemeColor = 10 'çicginin rengini değiştirir
.Fill.Solid
.Fill.Visible = msoTrue ' dikdörtgenin için renkli olsun istersen msoTrue yap
.Fill.Transparency = 0.75 ' fill.visible=msoTrue iken işe yarar, saydamlık ayarı
.Fill.ForeColor.SchemeColor = 44 'fill.visible=msoTrue iken işe yarar, arka plan rengi
End With
End If
If SutunCizgisi1 Is Nothing Then
Set SutunCizgisi1 = ActiveSheet.Shapes.AddShape(msoShapeRectangle, ActiveCell.Left, 0, ActiveCell.Width, ActiveCell.Top)
With SutunCizgisi1
.Name = "SutunCizgisi1"
.Line.Weight = 1.5
.Line.ForeColor.SchemeColor = 10
.Fill.Solid
.Fill.Visible = msoTrue
.Fill.Transparency = 0.75
.Fill.ForeColor.SchemeColor = 44
End With
End If
If SutunCizgisi2 Is Nothing Then
Set SutunCizgisi2 = ActiveSheet.Shapes.AddShape(msoShapeRectangle, ActiveCell.Left, ActiveCell.Offset(1, 0).Top, ActiveCell.Width, ActiveSheet.Cells.Height - ActiveCell.Left)
With SutunCizgisi2
.Name = "SutunCizgisi2"
.Line.Weight = 1.5
.Line.ForeColor.SchemeColor = 10
.Fill.Solid
.Fill.Visible = msoTrue
.Fill.Transparency = 0.75
.Fill.ForeColor.SchemeColor = 44
End With
End If
With SatirCizgisi1
.Left = 0
.Top = ActiveCell.Top
.Width = ActiveCell.Left
.Height = ActiveCell.Height
End With
With SatirCizgisi2
.Left = ActiveCell.Offset(0, 1).Left
.Top = ActiveCell.Top
.Width = ActiveSheet.Columns.Width - ActiveCell.Left
.Height = ActiveCell.Height
End With
With SutunCizgisi1
.Left = ActiveCell.Left
.Top = 0
.Width = ActiveCell.Width
.Height = ActiveCell.Top
If ActiveCell.Top > 169056 Then
.Top = ActiveCell.Top - 169056
End If
End With
With SutunCizgisi2
.Left = ActiveCell.Left
.Top = ActiveCell.Offset(1, 0).Top
.Width = ActiveCell.Width
.Height = ActiveSheet.Cells.Height - ActiveCell.Left
End With
Application.ScreenUpdating = True
End Sub

Private Sub SekilSil(Optional Sh As Worksheet)

On Error Resume Next

If Sh Is Nothing Then
For Each Sh In ThisWorkbook.Worksheets
Sh.Shapes("SatirCizgisi1").Delete
Sh.Shapes("SutunCizgisi1").Delete
Sh.Shapes("SatirCizgisi2").Delete
Sh.Shapes("SutunCizgisi2").Delete

Next
Else
Sh.Shapes("SatirCizgisi1").Delete
Sh.Shapes("SutunCizgisi1").Delete
Sh.Shapes("SatirCizgisi2").Delete
Sh.Shapes("SutunCizgisi2").Delete

End If
End Sub


bu kod hediyem olsun....seçili hücreyi karenin içine alıyor ve başka bir şeye dokunmuyor puantaj tutanlar iin on numara
bu koduçalışma kitabı var oraya yapıştırın ( sonuç güzel )

 

[mcetinkaya65]

Bu makrolu sayfada işlem yaparsak hücre değişiminde otomatik kayıt ediyor.Geri al hizmeti vermiyır excell.

 

[gazolay]

Bu kod geliştirmeli... farkındayım ama 10 yıl oldu son nokta bu..daha iyisi varsa burada paylaşalım birde Ctrl f ile bulunan renk koyulmuyor..bunu bulmak lazım