sayfa üzerindeki combobox ile döngü

[anita]

yapmak istediğim şey verileri pazarlama bölümüne aktarmak
ve pazarlama bölümünde yapılacak iş bölümünden teklif randevu seçildiğinde
verileri teklif sekmesine aktarması yardımcı olursanız sevinirim.

 

[Murat OSMA]

Pazarlama sayfasının kod kısmına yazınız;

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 14 Then Exit Sub
    If Target.Value = "TEKLİF RANDEVU" Then
    Cells(Target.Row, 1).Resize(, 10).Copy Sayfa3.Range("A65536").End(3)(2, 1)
    Cells(Target.Row, 12).Resize(, 2).Copy Sayfa3.Range("K65536").End(3)(2, 1)
    MsgBox "..::.. Kopyalandı ! ..::..", vbInformation + vbMsgBoxRtlReading
    End If
End Sub

Not: Sadece teklif sayfasına kopyalama yapar. Pazarlama sayfasından sildirmedim.
Silinmesini de isterseniz; şu kodu ilave edebilirsiniz;

Rows(Target.Row).Delete

 

[anita]

teşekkürler

ilginize teşekkür ederim.
ben şu şekilde bir çalışma yaptım .
Sub teklif()
Dim sat As Long
Application.ScreenUpdating = False
Sheets("TEKLİF").Select
sat = Sheets("PAZARLAMA").Cells(65536, "B").End(xlUp).Row
If sat < 2 Then Exit Sub
If Worksheets("PAZARLAMA").Cells(2, 14).Value = "TEKLİF RANDEVU" Then
Sheets("PAZARLAMA").Range("A2:J2" & sat).Copy Range("A2")
Sheets("PAZARLAMA").Range("L2:M2" & sat).Copy Range("K2")
Else
MsgBox ("işleyişe göre Teklif işlemi gercekleşmesi gerekir;farklı bir bölüme aktarma yapamazsınız")
End If
Application.ScreenUpdating = True
Sheets("PAZARLAMA").Select
End Sub
burada satırı nasıl sildirebilirim?

 

[Murat OSMA]

■ Önerdiğim kodu neden kullanmıyorsunuz ?
■ Sadece 2. satırı mı kullanacaksınız ? Kodlardan onu anlıyorum.. :dusun:

 

[anita]

bilgilendirme

ekli dosyada asıl istediğim yapılacak iş bölümündeki seçime göre bazı bilgileri aktarmak bazıların ise sayfada kalması istiyorum.
örnek olarak ;

pazarlama bölümünde yapılacak iş olarak
İLK GÖRÜŞME ................. pazarlamada kalacak
İLK KEŞİF........................pazarlamada kalacak
TEKLİF RANDEVU...............teklif sekmesine gönderilip pazarlama sayfasından silinecek
SÖZLEŞME RANDEVU..........sözleşme sekmesine gönderilip pazarlama sayfasından silinecek
TAMAMLANDI.......... uyarılarak silenecek.
gibi

diğer sekmeler de buna benzer işlemler yapacak.

 

[Murat OSMA]

Sanırım 2. mesajda önerdiğim kodları denemediniz... :dusun: :dusun:

Denesrydiniz: ne ye ni bir çalışma yapardınız, ne de bilgilendirme mesajını yazardınız...

 

[anita]

zaten sorun yanıtlanmadan önce yapılan bir çalışma
Cells(Target.Row, 12).Resize(, 2).Copy Sayfa3.Range("K65536").End(3)(2, 1)
satırının açıklarsanız sevinirim.
makroya yeni başladım da pek anlayamadım açılımı
açıklarsanız o zaman her sekme için uygulamayı yapabilirim teşekkürler.

 

[Murat OSMA]

zaten sorun yanıtlanmadan önce yapılan bir çalışma

Hiçbir şey anlamadım. :dusun: :dusun:

Cells(Target.Row, 12).Resize(, 2).Copy Sayfa3.Range("K65536").End(3)(2, 1)[/CODE]satırının açıklarsanız sevinirim.

Seçili satırın 12. sütunu ile 2 sütun sağındaki hücre aralığını, sayfa3'ün K sütundaki son satırın bir altına yaz. Açıkladım !

makroya yeni başladım da pek anlayamadım açılımı
açıklarsanız o zaman her sekme için uygulamayı yapabilirim teşekkürler.

3. mesajdaki kodu siz yazdıysanız, üstteki kodun izahını istemezdiniz. Yani, o kodu siz yazmadığınız için, bence verdiğim kodu her sekme için ayarlayamazsınız.