hücre ilişkisi

[YILDIZ YAĞMURU]

Nasıl bir başlık atacağımı bilemedim eğer yanlışsa kusura bakmayın

A sütununda bir hücrede ki veriyi silince , o hücrenin yanındaki B sütunundaki hücrenin de verisi silinsin , böyle bir kod gerekli

yardımcı olursanız çok sevineceğim.. şimdiden çok teşekkür ederim arkadaşlar

 

[asi_kral]

Merhaba
Sayfanın kod bölümüne kopyalayın ve deneyin.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If Target = Empty Then
Range("B" & Target.Row).ClearContents
End If
End Sub

 

[Korhan Ayhan]

Merhaba,

Çoklu hücre seçimleri için aşağıdaki kodu kullanmanız daha faydalı olacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Adres As String, Nesne As Object
    
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    If Target.Cells.Count = 1 Then
        Adres = "B" & Target.Row
    Else
        Adres = Selection.Address
        Set Nesne = CreateObject("VBScript.Regexp")
        Nesne.Pattern = "[^0-9\,\:\$]"
        Nesne.Global = True
        Adres = Nesne.Replace(Adres, "B")
        Set Nesne = Nothing
    End If
    
    Range(Adres).ClearContents
End Sub

 

[YILDIZ YAĞMURU]

çok teşekkürler

Merhaba
Sayfanın kod bölümüne kopyalayın ve deneyin.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
If Target = Empty Then
Range("B" & Target.Row).ClearContents
End If
End Sub

Teşekkürler Asi_kral

 

[YILDIZ YAĞMURU]

çok teşekkürler

Merhaba,

Çoklu hücre seçimleri için aşağıdaki kodu kullanmanız daha faydalı olacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Adres As String, Nesne As Object
    
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    If Target.Cells.Count = 1 Then
        Adres = "B" & Target.Row
    Else
        Adres = Selection.Address
        Set Nesne = CreateObject("VBScript.Regexp")
        Nesne.Pattern = "[^0-9\,\:\$]"
        Nesne.Global = True
        Adres = Nesne.Replace(Adres, "B")
        Set Nesne = Nothing
    End If
    
    Range(Adres).ClearContents
End Sub

Teşekkürler Korhan bey,

 

[YILDIZ YAĞMURU]

Korhan bey merhaba

Merhaba,

Çoklu hücre seçimleri için aşağıdaki kodu kullanmanız daha faydalı olacaktır.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Adres As String, Nesne As Object
    
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
    If Target.Cells.Count = 1 Then
        Adres = "B" & Target.Row
    Else
        Adres = Selection.Address
        Set Nesne = CreateObject("VBScript.Regexp")
        Nesne.Pattern = "[^0-9\,\:\$]"
        Nesne.Global = True
        Adres = Nesne.Replace(Adres, "B")
        Set Nesne = Nothing
    End If
    
    Range(Adres).ClearContents
End Sub

Acaba aşağıdaki kod a yukarıdaki kodu uyarlayabilirmisiniz.
yani A sütunundan herhangi bir veriyi sildiğimde b sütunda karsılıgındakı verıde sılınsın ıstıyorum..

Aşağıdaki ekleyeceğim kod biliyorsunuz Başka sayfadan veri çağırıyor ama gelen veri bi daha gitmiyor taki silene kadar. oysa bana A sütunundaki veriyi silince B sütunundakide silinsin gerekli, yardımcı olurmusunuz acaba
şimdide çok teşekkürler Korhan bey



Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
If Not Intersect(Target, Range("a2:a1000")) Is Nothing Then
If Target = "" Then Exit Sub
If WorksheetFunction.CountIf(Sheets("KODLAR").Range("b:b"), Cells(Target.Row, "a")) > 0 Then
Cells(Target.Row, "b") = WorksheetFunction.Index(Sheets("KODLAR").Range("a:b"), WorksheetFunction.Match(Target, Sheets("KODLAR").Range("b:b"), 0), 1)


Else
Cells(Target.Row, "E") = "Veri Yok"
MsgBox " Girdiğiniz Stok Kodu Bulunamadı !", vbCritical, "Dikkat !"
End If

End If

End Sub