İstediğim hücreyi tıklayamıyorum.

[sensizsoldum]

Merhaba Günaydın,
Arkadaşlar excel çalışmamda garip şeyler oluyor. Dosya olarak eklemek istiyorum ama şirkette olduğumdan ekleyemiyorum.
Herhangi bir hücreyi tıkladığım bir alta otomatik gidiyor. İstediğim hücrede işlem yapamıyorum. Konu acildir. Neden olabilir. Sayfada texbox falan bulunmaktadır.

 

[Necdet]

Merhaba,

Dediğiniz makrodan kaynaklanıyor olabilir. Ya silin makroları ya da makroyu etkinleştirmeden sayfada işlem yapın.

 

[sensizsoldum]

Merhaba,
Makroları silemem ya da devre dışı bırakamam sorunun neden olduğunu neyden kaynaklandığını biliyorum. Ama o makroda çok gerekli. Buna engel olmayacak bir çözüm var mı bilmiyorum.
Başka sayfa da bulunan combobox etkiliyor o sayfada hangi işlem yaparsam yapayım. Sorun yok ama combobox devreye girince diğer sayfalarda belli bir aralığı seçsem ya da istediğim bir hücreyi tıkladığımda ne seçtiğim alan seçiliyor. Ne istediğim hücreyi tıklayabiliyorum. Bir alt hücreye otomatik gidiyor.

 

[DeliBalta58]

Merhaba. Dosyayı ekleme imkanınız olmadığını söylediniz. Sorun olduğunu düşündüğünüz makroları yazabilirseniz yardım bulabilirsiniz sanırım.

 

[arifbirgen]

Sn sensizoldum
araçlar >seçenekler>düzen de doğrudan hücre içinde düzenle de tırnak işareti olmayabilir.

 

[sensizsoldum]

Merhaba kutucuk seçili. sanmıyorum ordan kaynaklığı olduğunu...
combobox açıkken yapıyor normalde yapmıyor.

 

[Necdet]

Merhaba Günaydın,
Arkadaşlar excel çalışmamda garip şeyler oluyor. Dosya olarak eklemek istiyorum ama şirkette olduğumdan ekleyemiyorum.
Herhangi bir hücreyi tıkladığım bir alta otomatik gidiyor. İstediğim hücrede işlem yapamıyorum. Konu acildir. Neden olabilir. Sayfada texbox falan bulunmaktadır.

Çalışacağınız hücreden önceki hücreye tıklayınız, çalışacağınız hücrey otomatik geçer. Dediğiniz doğru ise bu olay gerçekleşir.

Eğer makroları kullanıyorsanız değişiklik yapmanıza gerek kalmaz.

Bu olay ilgili sayfada Worksheet_SelectionChange makrosu ya da ThisWorkbook ta Workbook_SheetSelectionChange(ByVal ... makrosu çalışıyordur.

 

[sensizsoldum]

Doğrudur nejdet bey bu makrolar vardır. akşam örnek bir çalışma ekleyp foruma eklemeyi düşünüyorum.
bunu nasıl engelleyebilirim çalışmalara ve makrolara zarar vermeden aynı zamanda o makroyuda kullanmam lazım. nasıl bir şeyler yapabiliriz.

 

[sensizsoldum]

Merhaba,
Kod olarak ekleyebildim ancak,








Dim cmbEmre As Object
Private Sub Emre_Change()
On Error Resume Next
cmbEmre.Visible = False
ActiveCell.Offset(1, 0).Select
On Error Resume Next
Dim bul As Range: Dim i As Long
For i = 3 To Sayfa8.Range("B65536").End(3).Row
For Each bul In Sayfa6.Range("C3:C" & Range("C65536").End(3).Row)
If bul.Value = Sayfa8.Cells(i, 2).Value Then
bul.AddComment
bul.Comment.Text Text:=Sayfa8.Cells(i, 3).Value
End If
Next bul: Next i: i = Empty: Set bul = Nothing
End Sub
Private Sub Emre_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 13 Then
cmbEmre.Visible = False
ActiveCell.Offset(1, 0).Select
On Error Resume Next
Dim bul As Range: Dim i As Long
For i = 3 To Sayfa8.Range("B65536").End(3).Row
For Each bul In Sayfa6.Range("C3:C" & Range("C65536").End(3).Row)
If bul.Value = Sayfa8.Cells(i, 2).Value Then
bul.AddComment
bul.Comment.Text Text:=Sayfa8.Cells(i, 3).Value
End If
Next bul: Next i: i = Empty: Set bul = Nothing
End If
End Sub
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Target.Column <> 3 Then Exit Sub
Cancel = True
Set cmbEmre = ActiveSheet.OLEObjects("Emre")
On Error GoTo 0
If cmbEmre Is Nothing Then
With ActiveSheet.OLEObjects.Add(ClassType:="Forms.ComboBox.1", _
Width:=Target.Width * 1.5, _
Height:=Target.Height * 1.5)
.Name = "Emre"
End With
Set cmbEmre = ActiveSheet.OLEObjects("Emre")
End If
Set Target = Intersect(Target, Range("c:c"))
If Target Is Nothing Then
cmbEmre.Visible = False
cmbEmre.LinkedCell = ""
Exit Sub
ElseIf Target.Count > 1 Or Target.Row = 1 Then
cmbEmre.Visible = False
cmbEmre.LinkedCell = ""
Exit Sub
End If
With cmbEmre
Application.ScreenUpdating = False
.Top = Target.Top
.Left = Target.Left
.ListFillRange = "Osma"
.LinkedCell = Target.Address
.Enabled = True
.Visible = True
.Activate
End With
On Error Resume Next
Application.ScreenUpdating = True
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
Application.DisplayCommentIndicator = xlCommentIndicatorOnly
If Intersect(Target, [c3:c65536]) Is Nothing Then Exit Sub
ActiveCell.Comment.Visible = True
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Dim Hücre As Range
Application.ScreenUpdating = False
If Target.Cells.Count = 1 Then
If Target = "" And Target.Column = 3 Then
Target.ClearComments
End If
Else
For Each Hücre In Selection
If Hücre.Value = "" And Hücre.Column = 3 Then
Hücre.ClearComments
End If
Next
End If

If Target.Column = 4 Then
If Target.Column = 4 And Target.Value = "" Then
Target.Offset(0, 4).Value = ""
Else
Target.Offset(0, 4).Value = Target + Target.Offset(0, 2).Value
End If
End If

On Error GoTo Son
If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
If Selection.Columns.Count > 1 Then Exit Sub
If Selection.Count > 1 Then
For Each Hücre In Selection
If Hücre = "" Then
Hücre.Offset(0, -1) = ""
Else
Hücre.Offset(0, -1) = Date
End If
Next Hücre
Exit Sub
End If
If Target.Value = "" Then
Target.Offset(0, -1) = ""
Else
Target.Offset(0, -1) = Date
End If
Son:
Application.ScreenUpdating = True
End Sub

 

[uzmanamele]

Merhaba
Bu kodları ne için nasıl kullanıyorsunuz anlamadım

ActiveCell.Offset(1, 0).Select

Burada, seçilen hücrenin 100 satır altına götürür sizi.
Bu ne amaçla kullanılmaktadır? İlgili satırı silerek deneyin.

 

[sensizsoldum]

Merhabalar
Sayın uzman hocam teşekkür ederim ilginiz için düzeldi.
Kodu ne için eklediklerini bilmiyorum ne işe yaradığını da tabi ki. Vardır herhalde onunda bir bildiği, diyerek bir şey söylemek yanlış olur.