ctrl F

Katılım
16 Mayıs 2016
Mesajlar
141
Excel Vers. ve Dili
mıcrosoft exel türkçe
Altın Üyelik Bitiş Tarihi
29/06/2023
ctrl f yapınca arıyoruzya...buluyor ama renkleri çok silik şöyle aradığını bulunca daha canlı bir renk olmuyormu
 

netzone

Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
791
Excel Vers. ve Dili
🅾🅵🅵🅸🅲🅴
⎝365 64 Bit 𝙏𝙍⎠
🆆🅸🅽🅳🅾🆆🆂
⎝11 64 Bit 𝙏𝙍⎠
Altın Üyelik Bitiş Tarihi
12-09-2027
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.

1534943471391.png
 
Katılım
16 Mayıs 2016
Mesajlar
141
Excel Vers. ve Dili
mıcrosoft exel türkçe
Altın Üyelik Bitiş Tarihi
29/06/2023
BURA DEĞİL GÜZEL İNSAN BULDUĞU YER...Screenshot_1.png
 

netzone

Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
791
Excel Vers. ve Dili
🅾🅵🅵🅸🅲🅴
⎝365 64 Bit 𝙏𝙍⎠
🆆🅸🅽🅳🅾🆆🆂
⎝11 64 Bit 𝙏𝙍⎠
Altın Üyelik Bitiş Tarihi
12-09-2027
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.
 
Son düzenleme:
Katılım
16 Mayıs 2016
Mesajlar
141
Excel Vers. ve Dili
mıcrosoft exel türkçe
Altın Üyelik Bitiş Tarihi
29/06/2023
ü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 yapacazzScreenshot_1.png
 
Son düzenleme:

netzone

Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
791
Excel Vers. ve Dili
🅾🅵🅵🅸🅲🅴
⎝365 64 Bit 𝙏𝙍⎠
🆆🅸🅽🅳🅾🆆🆂
⎝11 64 Bit 𝙏𝙍⎠
Altın Üyelik Bitiş Tarihi
12-09-2027
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.
1534946912959.png
 
Katılım
16 Mayıs 2016
Mesajlar
141
Excel Vers. ve Dili
mıcrosoft exel türkçe
Altın Üyelik Bitiş Tarihi
29/06/2023
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
 
Son düzenleme:

netzone

Altın Üye
Katılım
10 Mayıs 2006
Mesajlar
791
Excel Vers. ve Dili
🅾🅵🅵🅸🅲🅴
⎝365 64 Bit 𝙏𝙍⎠
🆆🅸🅽🅳🅾🆆🆂
⎝11 64 Bit 𝙏𝙍⎠
Altın Üyelik Bitiş Tarihi
12-09-2027
Katılım
16 Mayıs 2016
Mesajlar
141
Excel Vers. ve Dili
mıcrosoft exel türkçe
Altın Üyelik Bitiş Tarihi
29/06/2023
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ınScreenshot_1.png ( sonuç güzel )Screenshot_2.png
 

mcetinkaya65

Altın Üye
Katılım
1 Mart 2011
Mesajlar
487
Excel Vers. ve Dili
2021 türkçe
Altın Üyelik Bitiş Tarihi
24-12-2030
Bu makrolu sayfada işlem yaparsak hücre değişiminde otomatik kayıt ediyor.Geri al hizmeti vermiyır excell.
 
Katılım
16 Mayıs 2016
Mesajlar
141
Excel Vers. ve Dili
mıcrosoft exel türkçe
Altın Üyelik Bitiş Tarihi
29/06/2023
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
 
Üst