• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

hücreye veri girilince diger hücre

T

tkcargo

Katılım
11 Haziran 2009
Mesajlar
64
Excel Vers. ve Dili
16 Türkçe
arkadaşlar merhaba
arama yaptım ama hatta bir kaç makroda buldum ama sorunlu çıktı
istediğim orneğin d5 hücresine 50 yazdığımda h5 hücresine ttt yazsın
d5 hücresine 20 yazdığımda h5 hücresine sss yazsın bunun gibi 20 30 tane bilgi var
sayfa kodu olarak böyle bir makro varmıdır?
 
bir örnek dosya yollayabilirsen belki daha iyi yardımcı olurum.makro bilmiyorum formül ile yapılabilir istediğiniz şey
 
karatren84 teşekkurler dosyanızı inceledim formulle oluyor
dosya yanımda olmadığından gonderemiyorum
fakat aşağıda yazdığım kod gibi birşey yapılabilirmi
sayfa kodu olarak


Private Sub Worksheet_Change(ByVal Target As Range)
If Range("d5") = "6301" Then
Range("h5") = "mst"
Else
If Range("d5") = "6403" Then
Range("h5") = "fra"

End If
End Sub
 
yukarıda gönderdiğim kod çalışıyor fakat dosyayı kilitliyor
 
tkcargo' Alıntı:
yukarıda gönderdiğim kod çalışıyor fakat dosyayı kilitliyor
Genişletmek için tıkla ...
Buyurun.:cool:
Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("d5") = "6301" Then
    Range("h5") = "mst"
    ElseIf Range("d5") = "6403" Then
    Range("h5") = "fra"
End If
End Sub
 
Merhaba,

Alternatif olarak Select-Case yapısını kullanabilirsiniz.

Kod: 
Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    Application.EnableEvents = False
    Select Case Range("D5")
        Case 50: Range("H5") = "ttt"
        Case 20: Range("H5") = "sss"
        Case Else: Range("H5") = ""
    End Select
Son: Application.EnableEvents = True
End Sub
 
orion1 teşekkürler
thisworkbook un kodunda aşağıdaki kod varmış herhalde çakışıyordu o yüzden verdiğiniz kodu girince yine kilitlendi ama aşağıdaki kodu silince sorun çözüldü. ikisi aynı anda çalışmazmı
aşağıdaki kod d5 hücresine girilen değeri sayfa adı yapıyor bu da gerekli çünkü


Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
On Error Resume Next
If Range("D5") <> "" Then Sh.Name = Range("D5")
End Sub
 
tkcargo' Alıntı:
orion1 teşekkürler
thisworkbook un kodunda aşağıdaki kod varmış herhalde çakışıyordu o yüzden verdiğiniz kodu girince yine kilitlendi ama aşağıdaki kodu silince sorun çözüldü. ikisi aynı anda çalışmazmı
aşağıdaki kod d5 hücresine girilen değeri sayfa adı yapıyor bu da gerekli çünkü


Kod: 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    On Error Resume Next
    If Range("D5") <> "" Then Sh.Name = Range("D5")
End Sub[/QUOTE]
ayni prosedürden 2 tane kullanmayınız.
Aşağıdaki kod işinizi görecektir.:cool:
[CODE]If Range("d5") = "6301" Then
    Range("h5") = "mst"
    ElseIf Range("d5") = "6403" Then
    Range("h5") = "fra"
End If
On Error Resume Next
If Range("D5") <> "" Then Sh.Name = Range("D5")
end sub
Genişletmek için tıkla ...
 
korhan bey teşekkürler
gönderdiğiniz kod kilitlenmeden çalıştı
emeğinize sağlık
 
Kiliitlenme ayni prosedürden 2 tane olmasından kaynaklanıyor.
9 nolu mesajda kodu son şekline soktum.:cool:
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst