worksheet change özelliği

N

nihatra

Katılım
31 Ekim 2007
Mesajlar
134
Excel Vers. ve Dili
türkçe
worksheet change ile a1 ile e750 arası verileri sütünlara aldırıyorum.aynı sayfada u11 'e"S" yazdığım zaman u12="S",u13="S",u14="S",u15="S" Yazacak ayrıca her sütün için ayrı formül mü yazılacak. yani örneğin Y12="S",Y13="S",Y14="S",Y15="S"
Gibi.vaktini ayıran arkadaşlara şimdiden teşekkür ederim.
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Hepsi bulunduğu sütunda 15nci satıra kadarmı olacak?
 
N

nihatra

Katılım
31 Ekim 2007
Mesajlar
134
Excel Vers. ve Dili
türkçe
hayır u11'e yazılan "s" u12,u13,u14,u15'e yazacak veya u16'ya "s" yazarsak u17,u18,u19......... gibi
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
hayır u11'e yazılan "s" u12,u13,u14,u15'e yazacak veya u16'ya "s" yazarsak u17,u18,u19......... gibi
Genişletmek için tıkla ...
Anladığım kadarı ile yazılan satırdan aşağı doğru yazılacak.Ama kendinden kaç satır aşağı kadar yazılacak onu anlamadım,veya nereye kadar yazılacak onu anlamadım.
Yukarıda sizin söylediğinize göre U11e yazılan altta 4 satıra kadar (u15 e kadar)
oluyor.ama u16ya yazılan için verdiğiniz örnekte ise u19a kadar (burada 3 satır oluyor.) var, yani bu işin bir standartı yokmu?:cool:
 
N

nihatra

Katılım
31 Ekim 2007
Mesajlar
134
Excel Vers. ve Dili
türkçe
abi özür dilerim. hepsi 4 satır olacak excel dosyam var ama bir türlü gönderemedim.
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
Çalışma sayfasının kod bölümüne yapıştırınız.
Bir hücreye "s" yazınız.:cool:
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If UCase(Target.Value) = "S" Then
Application.EnableEvents = False
    For i = 1 To 4
        Target.Offset(i, 0) = Target.Value
    Next
Application.EnableEvents = True
End If
End Sub
 
N

nihatra

Katılım
31 Ekim 2007
Mesajlar
134
Excel Vers. ve Dili
türkçe
evren bey çok teşekkür ederim. gönderdiğiniz kod diğer sayfada çalışıyor. ancak benim sayfamda
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [h11:N750]) Is Nothing Then Exit Sub
If Cells(Target.Row, "H").Value <> "" Then Cells(Target.Row, "T").Value = Cells(Target.Row, "H").Value
If Cells(Target.Row, "H").Value = "" Then Cells(Target.Row, "T").Value = ""
If Cells(Target.Row, "I").Value <> "" Then Cells(Target.Row, "V").Value = Cells(Target.Row, "I").Value
If Cells(Target.Row, "I").Value = "" Then Cells(Target.Row, "V").Value = ""
If Cells(Target.Row, "J").Value <> "" Then Cells(Target.Row, "X").Value = Cells(Target.Row, "J").Value
If Cells(Target.Row, "J").Value = "" Then Cells(Target.Row, "X").Value = ""
If Cells(Target.Row, "K").Value <> "" Then Cells(Target.Row, "Z").Value = Cells(Target.Row, "K").Value
If Cells(Target.Row, "K").Value = "" Then Cells(Target.Row, "Z").Value = ""
If Cells(Target.Row, "L").Value <> "" Then Cells(Target.Row, "AB").Value = Cells(Target.Row, "L").Value
If Cells(Target.Row, "L").Value = "" Then Cells(Target.Row, "AB").Value = ""
If Cells(Target.Row, "M").Value <> "" Then Cells(Target.Row, "AD").Value = Cells(Target.Row, "M").Value
If Cells(Target.Row, "M").Value = "" Then Cells(Target.Row, "AD").Value = ""
If Cells(Target.Row, "N").Value <> "" Then Cells(Target.Row, "AF").Value = Cells(Target.Row, "N").Value
If Cells(Target.Row, "N").Value = "" Then Cells(Target.Row, "AF").Value = ""
If Cells(Target.Row, "H").Value <> "" Then Cells(Target.Row, "AH").Value = Cells(Target.Row, "H").Value
If Cells(Target.Row, "H").Value = "" Then Cells(Target.Row, "AH").Value = ""
If Cells(Target.Row, "I").Value <> "" Then Cells(Target.Row, "AJ").Value = Cells(Target.Row, "I").Value
If Cells(Target.Row, "I").Value = "" Then Cells(Target.Row, "AJ").Value = ""
If Cells(Target.Row, "J").Value <> "" Then Cells(Target.Row, "AL").Value = Cells(Target.Row, "J").Value
If Cells(Target.Row, "J").Value = "" Then Cells(Target.Row, "AL").Value = ""
If Cells(Target.Row, "K").Value <> "" Then Cells(Target.Row, "AN").Value = Cells(Target.Row, "K").Value
If Cells(Target.Row, "K").Value = "" Then Cells(Target.Row, "AN").Value = ""
If Cells(Target.Row, "L").Value <> "" Then Cells(Target.Row, "AP").Value = Cells(Target.Row, "L").Value
If Cells(Target.Row, "L").Value = "" Then Cells(Target.Row, "AP").Value = ""
If Cells(Target.Row, "M").Value <> "" Then Cells(Target.Row, "AR").Value = Cells(Target.Row, "M").Value
If Cells(Target.Row, "M").Value = "" Then Cells(Target.Row, "AR").Value = ""
If Cells(Target.Row, "N").Value <> "" Then Cells(Target.Row, "AT").Value = Cells(Target.Row, "N").Value
If Cells(Target.Row, "N").Value = "" Then Cells(Target.Row, "AT").Value = ""
If Cells(Target.Row, "H").Value <> "" Then Cells(Target.Row, "AV").Value = Cells(Target.Row, "H").Value
If Cells(Target.Row, "H").Value = "" Then Cells(Target.Row, "AV").Value = ""
If Cells(Target.Row, "I").Value <> "" Then Cells(Target.Row, "AX").Value = Cells(Target.Row, "I").Value
If Cells(Target.Row, "I").Value = "" Then Cells(Target.Row, "AX").Value = ""
If Cells(Target.Row, "J").Value <> "" Then Cells(Target.Row, "AZ").Value = Cells(Target.Row, "J").Value
If Cells(Target.Row, "J").Value = "" Then Cells(Target.Row, "AZ").Value = ""
If Cells(Target.Row, "K").Value <> "" Then Cells(Target.Row, "BB").Value = Cells(Target.Row, "K").Value
If Cells(Target.Row, "K").Value = "" Then Cells(Target.Row, "BB").Value = ""
If Cells(Target.Row, "L").Value <> "" Then Cells(Target.Row, "BD").Value = Cells(Target.Row, "L").Value
If Cells(Target.Row, "L").Value = "" Then Cells(Target.Row, "BD").Value = ""
If Cells(Target.Row, "M").Value <> "" Then Cells(Target.Row, "BF").Value = Cells(Target.Row, "M").Value
If Cells(Target.Row, "M").Value = "" Then Cells(Target.Row, "BF").Value = ""
If Cells(Target.Row, "N").Value <> "" Then Cells(Target.Row, "BH").Value = Cells(Target.Row, "N").Value
If Cells(Target.Row, "N").Value = "" Then Cells(Target.Row, "BH").Value = ""
If Cells(Target.Row, "H").Value <> "" Then Cells(Target.Row, "BJ").Value = Cells(Target.Row, "H").Value
If Cells(Target.Row, "H").Value = "" Then Cells(Target.Row, "BJ").Value = ""
If Cells(Target.Row, "I").Value <> "" Then Cells(Target.Row, "BL").Value = Cells(Target.Row, "I").Value
If Cells(Target.Row, "I").Value = "" Then Cells(Target.Row, "BL").Value = ""
If Cells(Target.Row, "J").Value <> "" Then Cells(Target.Row, "BN").Value = Cells(Target.Row, "J").Value
If Cells(Target.Row, "J").Value = "" Then Cells(Target.Row, "BN").Value = ""
If Cells(Target.Row, "K").Value <> "" Then Cells(Target.Row, "BP").Value = Cells(Target.Row, "K").Value
If Cells(Target.Row, "K").Value = "" Then Cells(Target.Row, "BP").Value = ""
If Cells(Target.Row, "L").Value <> "" Then Cells(Target.Row, "BR").Value = Cells(Target.Row, "L").Value
If Cells(Target.Row, "L").Value = "" Then Cells(Target.Row, "BR").Value = ""
If Cells(Target.Row, "M").Value <> "" Then Cells(Target.Row, "BT").Value = Cells(Target.Row, "M").Value
If Cells(Target.Row, "M").Value = "" Then Cells(Target.Row, "BT").Value = ""
If Cells(Target.Row, "N").Value <> "" Then Cells(Target.Row, "BV").Value = Cells(Target.Row, "N").Value
If Cells(Target.Row, "N").Value = "" Then Cells(Target.Row, "BV").Value = ""
If Cells(Target.Row, "H").Value <> "" Then Cells(Target.Row, "BX").Value = Cells(Target.Row, "H").Value
If Cells(Target.Row, "H").Value = "" Then Cells(Target.Row, "BX").Value = ""
If Cells(Target.Row, "I").Value <> "" Then Cells(Target.Row, "BZ").Value = Cells(Target.Row, "I").Value
If Cells(Target.Row, "I").Value = "" Then Cells(Target.Row, "BZ").Value = ""
If Cells(Target.Row, "J").Value <> "" Then Cells(Target.Row, "CB").Value = Cells(Target.Row, "J").Value
If Cells(Target.Row, "J").Value = "" Then Cells(Target.Row, "CB").Value = ""
If Cells(Target.Row, "K").Value <> "" Then Cells(Target.Row, "CD").Value = Cells(Target.Row, "K").Value
If Cells(Target.Row, "K").Value = "" Then Cells(Target.Row, "CD").Value = ""
If Cells(Target.Row, "L").Value <> "" Then Cells(Target.Row, "CF").Value = Cells(Target.Row, "L").Value
If Cells(Target.Row, "L").Value = "" Then Cells(Target.Row, "CF").Value = ""
If Cells(Target.Row, "M").Value <> "" Then Cells(Target.Row, "CH").Value = Cells(Target.Row, "M").Value
If Cells(Target.Row, "M").Value = "" Then Cells(Target.Row, "CH").Value = ""
If Cells(Target.Row, "N").Value <> "" Then Cells(Target.Row, "CJ").Value = Cells(Target.Row, "N").Value
If Cells(Target.Row, "N").Value = "" Then Cells(Target.Row, "CJ").Value = ""
Range("BX10").Value = ""
Cells(Target.Row, "BX").Value = ""
Range("BZ10").Value = ""
Cells(Target.Row, "BZ").Value = ""
Range("CB10").Value = ""
Cells(Target.Row, "CB").Value = ""
Range("CD10").Value = ""
Cells(Target.Row, "CD").Value = ""
Range("CF10").Value = ""
Cells(Target.Row, "CF").Value = ""
Range("CH10").Value = ""
Cells(Target.Row, "CH").Value = ""
End Sub

form&#252;l&#252; var ikisini ayn&#305; sayfada nas&#305;l uygular&#305;z. te&#351;ekk&#252;rler
 
Orion1

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

Ofis-2010-TR 32 Bit
A&#351;a&#287;&#305;daki kodlar&#305; kullan&#305;n&#305;z.:cool:
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
[B][COLOR="Red"]On Error Resume Next
If UCase(Target.Value) = "S" Then
Application.EnableEvents = False
    For i = 1 To 4
        Target.Offset(i, 0) = Target.Value
    Next
Application.EnableEvents = True
End If[/COLOR][/B]
If Intersect(Target, [h11:N750]) Is Nothing Then Exit Sub
If Cells(Target.Row, "H").Value <> "" Then Cells(Target.Row, "T").Value = Cells(Target.Row, "H").Value
If Cells(Target.Row, "H").Value = "" Then Cells(Target.Row, "T").Value = ""
If Cells(Target.Row, "I").Value <> "" Then Cells(Target.Row, "V").Value = Cells(Target.Row, "I").Value
If Cells(Target.Row, "I").Value = "" Then Cells(Target.Row, "V").Value = ""
If Cells(Target.Row, "J").Value <> "" Then Cells(Target.Row, "X").Value = Cells(Target.Row, "J").Value
If Cells(Target.Row, "J").Value = "" Then Cells(Target.Row, "X").Value = ""
If Cells(Target.Row, "K").Value <> "" Then Cells(Target.Row, "Z").Value = Cells(Target.Row, "K").Value
If Cells(Target.Row, "K").Value = "" Then Cells(Target.Row, "Z").Value = ""
If Cells(Target.Row, "L").Value <> "" Then Cells(Target.Row, "AB").Value = Cells(Target.Row, "L").Value
If Cells(Target.Row, "L").Value = "" Then Cells(Target.Row, "AB").Value = ""
If Cells(Target.Row, "M").Value <> "" Then Cells(Target.Row, "AD").Value = Cells(Target.Row, "M").Value
If Cells(Target.Row, "M").Value = "" Then Cells(Target.Row, "AD").Value = ""
If Cells(Target.Row, "N").Value <> "" Then Cells(Target.Row, "AF").Value = Cells(Target.Row, "N").Value
If Cells(Target.Row, "N").Value = "" Then Cells(Target.Row, "AF").Value = ""
If Cells(Target.Row, "H").Value <> "" Then Cells(Target.Row, "AH").Value = Cells(Target.Row, "H").Value
If Cells(Target.Row, "H").Value = "" Then Cells(Target.Row, "AH").Value = ""
If Cells(Target.Row, "I").Value <> "" Then Cells(Target.Row, "AJ").Value = Cells(Target.Row, "I").Value
If Cells(Target.Row, "I").Value = "" Then Cells(Target.Row, "AJ").Value = ""
If Cells(Target.Row, "J").Value <> "" Then Cells(Target.Row, "AL").Value = Cells(Target.Row, "J").Value
If Cells(Target.Row, "J").Value = "" Then Cells(Target.Row, "AL").Value = ""
If Cells(Target.Row, "K").Value <> "" Then Cells(Target.Row, "AN").Value = Cells(Target.Row, "K").Value
If Cells(Target.Row, "K").Value = "" Then Cells(Target.Row, "AN").Value = ""
If Cells(Target.Row, "L").Value <> "" Then Cells(Target.Row, "AP").Value = Cells(Target.Row, "L").Value
If Cells(Target.Row, "L").Value = "" Then Cells(Target.Row, "AP").Value = ""
If Cells(Target.Row, "M").Value <> "" Then Cells(Target.Row, "AR").Value = Cells(Target.Row, "M").Value
If Cells(Target.Row, "M").Value = "" Then Cells(Target.Row, "AR").Value = ""
If Cells(Target.Row, "N").Value <> "" Then Cells(Target.Row, "AT").Value = Cells(Target.Row, "N").Value
If Cells(Target.Row, "N").Value = "" Then Cells(Target.Row, "AT").Value = ""
If Cells(Target.Row, "H").Value <> "" Then Cells(Target.Row, "AV").Value = Cells(Target.Row, "H").Value
If Cells(Target.Row, "H").Value = "" Then Cells(Target.Row, "AV").Value = ""
If Cells(Target.Row, "I").Value <> "" Then Cells(Target.Row, "AX").Value = Cells(Target.Row, "I").Value
If Cells(Target.Row, "I").Value = "" Then Cells(Target.Row, "AX").Value = ""
If Cells(Target.Row, "J").Value <> "" Then Cells(Target.Row, "AZ").Value = Cells(Target.Row, "J").Value
If Cells(Target.Row, "J").Value = "" Then Cells(Target.Row, "AZ").Value = ""
If Cells(Target.Row, "K").Value <> "" Then Cells(Target.Row, "BB").Value = Cells(Target.Row, "K").Value
If Cells(Target.Row, "K").Value = "" Then Cells(Target.Row, "BB").Value = ""
If Cells(Target.Row, "L").Value <> "" Then Cells(Target.Row, "BD").Value = Cells(Target.Row, "L").Value
If Cells(Target.Row, "L").Value = "" Then Cells(Target.Row, "BD").Value = ""
If Cells(Target.Row, "M").Value <> "" Then Cells(Target.Row, "BF").Value = Cells(Target.Row, "M").Value
If Cells(Target.Row, "M").Value = "" Then Cells(Target.Row, "BF").Value = ""
If Cells(Target.Row, "N").Value <> "" Then Cells(Target.Row, "BH").Value = Cells(Target.Row, "N").Value
If Cells(Target.Row, "N").Value = "" Then Cells(Target.Row, "BH").Value = ""
If Cells(Target.Row, "H").Value <> "" Then Cells(Target.Row, "BJ").Value = Cells(Target.Row, "H").Value
If Cells(Target.Row, "H").Value = "" Then Cells(Target.Row, "BJ").Value = ""
If Cells(Target.Row, "I").Value <> "" Then Cells(Target.Row, "BL").Value = Cells(Target.Row, "I").Value
If Cells(Target.Row, "I").Value = "" Then Cells(Target.Row, "BL").Value = ""
If Cells(Target.Row, "J").Value <> "" Then Cells(Target.Row, "BN").Value = Cells(Target.Row, "J").Value
If Cells(Target.Row, "J").Value = "" Then Cells(Target.Row, "BN").Value = ""
If Cells(Target.Row, "K").Value <> "" Then Cells(Target.Row, "BP").Value = Cells(Target.Row, "K").Value
If Cells(Target.Row, "K").Value = "" Then Cells(Target.Row, "BP").Value = ""
If Cells(Target.Row, "L").Value <> "" Then Cells(Target.Row, "BR").Value = Cells(Target.Row, "L").Value
If Cells(Target.Row, "L").Value = "" Then Cells(Target.Row, "BR").Value = ""
If Cells(Target.Row, "M").Value <> "" Then Cells(Target.Row, "BT").Value = Cells(Target.Row, "M").Value
If Cells(Target.Row, "M").Value = "" Then Cells(Target.Row, "BT").Value = ""
If Cells(Target.Row, "N").Value <> "" Then Cells(Target.Row, "BV").Value = Cells(Target.Row, "N").Value
If Cells(Target.Row, "N").Value = "" Then Cells(Target.Row, "BV").Value = ""
If Cells(Target.Row, "H").Value <> "" Then Cells(Target.Row, "BX").Value = Cells(Target.Row, "H").Value
If Cells(Target.Row, "H").Value = "" Then Cells(Target.Row, "BX").Value = ""
If Cells(Target.Row, "I").Value <> "" Then Cells(Target.Row, "BZ").Value = Cells(Target.Row, "I").Value
If Cells(Target.Row, "I").Value = "" Then Cells(Target.Row, "BZ").Value = ""
If Cells(Target.Row, "J").Value <> "" Then Cells(Target.Row, "CB").Value = Cells(Target.Row, "J").Value
If Cells(Target.Row, "J").Value = "" Then Cells(Target.Row, "CB").Value = ""
If Cells(Target.Row, "K").Value <> "" Then Cells(Target.Row, "CD").Value = Cells(Target.Row, "K").Value
If Cells(Target.Row, "K").Value = "" Then Cells(Target.Row, "CD").Value = ""
If Cells(Target.Row, "L").Value <> "" Then Cells(Target.Row, "CF").Value = Cells(Target.Row, "L").Value
If Cells(Target.Row, "L").Value = "" Then Cells(Target.Row, "CF").Value = ""
If Cells(Target.Row, "M").Value <> "" Then Cells(Target.Row, "CH").Value = Cells(Target.Row, "M").Value
If Cells(Target.Row, "M").Value = "" Then Cells(Target.Row, "CH").Value = ""
If Cells(Target.Row, "N").Value <> "" Then Cells(Target.Row, "CJ").Value = Cells(Target.Row, "N").Value
If Cells(Target.Row, "N").Value = "" Then Cells(Target.Row, "CJ").Value = ""
Range("BX10").Value = ""
Cells(Target.Row, "BX").Value = ""
Range("BZ10").Value = ""
Cells(Target.Row, "BZ").Value = ""
Range("CB10").Value = ""
Cells(Target.Row, "CB").Value = ""
Range("CD10").Value = ""
Cells(Target.Row, "CD").Value = ""
Range("CF10").Value = ""
Cells(Target.Row, "CF").Value = ""
Range("CH10").Value = ""
Cells(Target.Row, "CH").Value = ""
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Üst