Makroda Hatayı düzenlemek.

[sensizsoldum]

Merhaba,
Arkadaşlar, ek dosya da çalışmada küçük bi iki sorun var, uğraştım düzenleme yapamadım. sizlerle paylaşmak istedim.
Seçili olan veriyi, B3 gelecek şekilde yapıştırdığımda... G sütunda o anki tarih yazmasını ve C sutunda ise aynı olan rakamların birleşmesi gerkemktedir.
Tarih yazması için sadece B sutuna yukarıdan aşağı olacak şekilde birden fazla veri yapıştırıldığında bu işlemi yapıyor.
C sutunda ki birleştirme olayı ise... kod bölümüne girip run yaptığımızda çalışıyor sayın değerli hocalarım arkadaşlarm. bu işlemi bu sayfada hücre değişikliğine göre makroyu tetikleme yapabilirmıyız.

Örnek çalışmam şirkette olduğundan upload ederek yüklüyorum.
Herkese teşekkür ederim.

http://www.dosya.tc/server12/PGnHI5/_rnek.xls.html

 

[Huseyinkis]

merhaba,

Dosyayı Farklı bir indirme sitesine yuklemişsiniz. Yuklediğiniz siteyi proxy kısıtlamasından dolayı açamıyan arkadaşlar olucaktır ( Benim Gibi)

Dosyayı excel.web.tr sitesine yuklerseniz daha iyi olur.

 

[sensizsoldum]

Şirkette olduğumdan bende yapamıyorum.
forumda online olan arkadaşlardan rica edıyorum linkte ki excel dosyasını normal olarak yükleye bilirmı..

 

[sensizsoldum]

Merhaba Örnek dosya yı doğrudan yükledim.
ilgilenecek tüm herkese tşk ederim.

 

[Huseyinkis]

Merhaba Örnek dosya yı doğrudan yükledim.
ilgilenecek tüm herkese tşk ederim.

codları ekteki gibi denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    Dim Hücre As Range
    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, 5) = ""
            Else
                Hücre.Offset(0, 5) = Date
            End If
        Next Hücre
        Call merge
        Exit Sub
    End If
    If Target.Value = "" Then
        Target.Offset(0, 5) = ""
    Else
        Target.Offset(0, 5) = Date
    End If
Son:
Call merge
End Sub

 

[sensizsoldum]

merhaba uyguladım sonuç alamadım. hatta hata veriyor ( hüseyin bey,

 

[sensizsoldum]

Günaydın Hayırlı sabahla herkese.
arkadaşlar bu kodları istediğimiz gibi uyarlamamıza yardımcı olabilirmısınız . tşk ederim iyi günler dilerim

 

[Huseyinkis]

Günaydın Hayırlı sabahla herkese.
arkadaşlar bu kodları istediğimiz gibi uyarlamamıza yardımcı olabilirmısınız . tşk ederim iyi günler dilerim

Tekrar merhaba birde bu kodları denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    On Error GoTo Son
    If Intersect(Target, [B:B]) Is Nothing Then Exit Sub
    Dim Hücre As Range
       If Selection.Count > 1 Then
        For Each Hücre In Selection
            If Hücre = "" And Hücre.Offset(0, 5).Column = 7 Then
                Hücre.Offset(0, 5) = ""
            ElseIf Hücre.Offset(0, 5).Column = 7 Then
                Hücre.Offset(0, 5) = Date
            End If
        Next Hücre
        Call merge
        Exit Sub
    End If
    If Hücre = "" And Hücre.Offset(0, 5).Column = 7 Then
        Target.Offset(0, 5) = ""
    ElseIf Hücre.Offset(0, 5).Column = 7 Then
        Target.Offset(0, 5) = Date
    End If
Son:
 Call merge
End Sub

 

[sensizsoldum]

Hüseyin bey. yine hata alıyorum. eğer siz olumlu sonuç alıyorsanız. örnek dosya ekleye bilirmısınız.
yoksa benmi bi yerlerde hata yapıyorum.

 

[Huseyinkis]

Hüseyin bey. yine hata alıyorum. eğer siz olumlu sonuç alıyorsanız. örnek dosya ekleye bilirmısınız.
yoksa benmi bi yerlerde hata yapıyorum.

Merhaba yandaki bilgilerin tamamını kopyalayıp b2 hücresinde yapıştır diyorum hata almıyorum.. kopyalama işlemini farkılı bir şekildemi yapmak gerekiyor.

 

[sensizsoldum]

merhaba hüseyin bey,
teşekkür ederim elinize sağlık.

ancak tarihle ilgili küçük sorunlar var,
tek hücreye tek giriş yapıldığında ya da silindiğinde tarihle ilgili sıkıntı var.
en az 2 hücreye kopyalayıp yapıştırıldığında çalışıyor. bide mesela dün tarihli bi girişimiz oldu g sutunda dün tarih yazıldı.
bunu b sutunda f2+enter yaptığımızda dünkü tarih yazıyor.
bunun haricinde başka bir sorun göremiyorum. inşallah yoktur da.
çok teşekkür ederim
elinize sağlık.

 

[Huseyinkis]

merhaba hüseyin bey,
teşekkür ederim elinize sağlık.

ancak tarihle ilgili küçük sorunlar var,
tek hücreye tek giriş yapıldığında ya da silindiğinde tarihle ilgili sıkıntı var.
en az 2 hücreye kopyalayıp yapıştırıldığında çalışıyor. bide mesela dün tarihli bi girişimiz oldu g sutunda dün tarih yazıldı.
bunu b sutunda f2+enter yaptığımızda dünkü tarih yazıyor.
bunun haricinde başka bir sorun göremiyorum. inşallah yoktur da.
çok teşekkür ederim
elinize sağlık.

Sanırım bu sefer oldu gibi tekrar test edermisiniz.

 

[sensizsoldum]

Merhaba hüseyin bey. B itürlü deneyemedim veri kopyala yapıştır yapıyorum. daha sonra sütun değiştimde ya da veri silmeye çalıştığımda (del) ciddi derecede donuyor tüm excell çalışmalarım kapanıyor. yeniden göz atabilirmısınız.
ne hatası var bilmıyorum ama test ettırmıor

 

[Huseyinkis]

Merhaba hüseyin bey. B itürlü deneyemedim veri kopyala yapıştır yapıyorum. daha sonra sütun değiştimde ya da veri silmeye çalıştığımda (del) ciddi derecede donuyor tüm excell çalışmalarım kapanıyor. yeniden göz atabilirmısınız.
ne hatası var bilmıyorum ama test ettırmıor

Dosya Ekte sorunu cozdum sanırım

 

[sensizsoldum]

Merhaba Hüseyin bey,
örnek dosyada hiç bi değişiklık yok anlayamadım :s yine benmi bi yerlerde hata yapıyorum. yani hiç bi hareketlılık yok :S

 

[Huseyinkis]

Merhaba Hüseyin bey,
örnek dosyada hiç bi değişiklık yok anlayamadım :s yine benmi bi yerlerde hata yapıyorum. yani hiç bi hareketlılık yok :S

:N bir yeri yapıyım diyince diğer taraf bozuluyor simdi bir bakın

 

[sensizsoldum]

deli olacağım ya olmadı bı turluu

 

[Huseyinkis]

deli olacağım ya olmadı bı turluu

16 nl mesajın ekindki dosyayı guncelledim tek tek kopyalasanda toplu kopyalama ve satır silmede hücre temizleme işlemini test ettim çalışıyor tam olarak nasıl bir işlem yaptığında hata alıyorsun anlatabilirmisin.