Tarih atan makro başka hücrelerde silinmelere neden oluyor

[sakiogluo]

Sayın Leventm, sorunum yanlış anlaşıldı. ekte daha detaylı açıklamaya çalıştım...
Kusura bakmayın yanlışlıkla ilgili formun dışına çıktım.

 

[selections]

Merhaba,
kodlar doğru çalışıyor, unuttuğunuz şey şu tablo isimli sayfanın " B " kolonuna üretim 1 sayfasının " B7 " hücresini yazdırmak istiyorsunuz ve bu hücre BOÞ bu hücreye değer girdiğinizde bunu tablo isimli sayfanın " B " kolonuna aktaracağını göreceksiniz. iyi çalışmalar.

 

[umutsancar]

Sevgili sakiogluo,

Konuyla alakası olmadığı için çok özür dilerim. ÜRETİM 1 adlı sheet'teki açılan kutuları nasıl yaptınız, açıklar mısınız?


Umut Sancar

 

[selections]

Üst menüde yer alan VERİ / DOÐRULAMA menüsünden Ayarlar kısmında İZİN VERİLEN seçeneğini LİSTE yapınız, alttarafta size bu hücreye tıklandığında hangi hücre aralığındaki verilen listelenmesini istiyorsanız seçmenizi isteyecektir.

 

[sakiogluo]

"Üretim 1" den "tablo"ya veri aktarımında sütun sıralama bozukluğu var bunu düzeltebilirim. Benim asıl sorunum aşağıdaki makrodan kaynaklanan başka sorun

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column <> 4 Then Exit Sub
Target.Offset(0, 4) = Format(Now, "dd.mm.yy hh:mm")
If Target = 0 Then Target.Offset(0, 4) = ""
End Sub

Ektede belirtiğim gibi "Üretim 1" den "tablo"ya veri aktarımından sonra bir alttaki satırda ("Üretim 1" ---H2:M2) hücreleri istemediğim halde siliniyor

 

[selections]

Merhaba,
Aşağıda en sona ilave ettiğiniz kodlarda açıkça D2 ile M2 arasını silmesi istenmiştir. bu kodlar ile yapmak istediğiniz şey nedir bilmiyorum ama bunları silerseniz kodunuz istediğiniz gibi çalışır.

Private Sub CommandButton1_Click()
'Userform daki verileri excel sayfasına yazar
Dim t As Range
    If ("J1") = "" Then
        MsgBox "FİRMA ADI BOÞ BIRAKILAMAZ..."
        Exit Sub
    End If
dolusay = WorksheetFunction.CountA(Worksheets("tablo").[a1:a60000]) + 1
Worksheets("tablo").Cells(dolusay, "a").Value = dolusay - 1
dolusay = WorksheetFunction.CountA(Worksheets("tablo").[a1:a60000])
Worksheets("tablo").Cells(dolusay, "b").Value = Range("B7").Value
Worksheets("tablo").Cells(dolusay, "c").Value = Range("C7").Value
Worksheets("tablo").Cells(dolusay, "d").Value = Range("D7").Value
Worksheets("tablo").Cells(dolusay, "e").Value = Range("E7").Value
Worksheets("tablo").Cells(dolusay, "f").Value = Range("F7").Value
Worksheets("tablo").Cells(dolusay, "g").Value = Range("G7").Value
Worksheets("tablo").Cells(dolusay, "h").Value = Range("H7").Value
Worksheets("tablo").Cells(dolusay, "i").Value = Range("I7").Value
Worksheets("tablo").Cells(dolusay, "j").Value = Range("J7").Value
Worksheets("tablo").Cells(dolusay, "k").Value = Range("K7").Value
Worksheets("tablo").Cells(dolusay, "l").Value = Range("L7").Value
    Range("D2:M2").Select
    Selection.Delete Shift:=xlUp
    Range("B105:L105").Copy
    Range("B106").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
End Sub

silinmesi gereken kodlar.

Range("D2:M2").Select
    Selection.Delete Shift:=xlUp
    Range("B105:L105").Copy
    Range("B106").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select

 

[sakiogluo]

Sorunu yine tam anlatamadım, açayım.
Personel isimlerinin bulunduğu en üst satır (D2:M2) baskı bitince BASKI BİTTİ butonuyla "ÜRETİM 1 (D2:M2)" den silinerek "tablo"ya aktarılıyor buraya kadar bir sorunum yok.
"ÜRETİM 1" isimli sayfada personel ismi menüden seçildiğinde H sütununa otomatik tarih yazan bir makro var. Makro kendi içinde çalışmasına rağmen başka yerlerde hata veriyor.
(D2:M2) satırı seçilerek silindiğinde (Hücreleri yukarı sürükle) bir alttaki hücrelerdede silinmeler oluyor birde en alttaki D21:M21'i seçip çoğaltmak için aşağı çekince yine bazı hücrelerden veri siliniyor. Eki inceleyiniz, Teşekkürler..

 

[htsumer]

Konu Dışı..

umutsancar[/b]]
Sevgili sakiogluo,

Konuyla alakası olmadığı için çok özür dilerim. ÜRETİM 1 adlı sheet'teki açılan kutuları nasıl yaptınız, açıklar mısınız?

Dersanede Mevcuttur.

 

[Levent Menteşoğlu]

Dosyanızdaki kodlara bazı ilaveler yaparak sorunu çözdüğümü düşünüyorum. Eki inceleyin.