Otel fiyat teklifleri

[POLARIS]

Arkadaşlar merhaba,Hepinize iyi çalışmalar dilerim.
Bir teklif hazırladım.Mail yada faksla gönderip daha sonra değerlendirmek amacı ile verilen son fiyatları ilgili oteller için Tarih sıralamasına göre arşivlemek istiyorum.Makrolar konusunda acemi olduğum için bana bir fikir yada çözüm önerebilirmisiniz.
Şimdiden teşekkür eder iyi çalışmalar dilerim.
Hoşçakalınız..

 

[POLARIS]

Arkadaşlar merhaba,
Cevabını (Veri aktar,sayfalar arası veri aktar) olarak iki gündür forumda arıyorum ama maalesef bulamadım.
Yardımcı olabilirmisiniz? Teşekkürler.

 

[dEdE]

Merhaba,
Dosyanız ilişiktedir.

Sub Aktar()
Application.ScreenUpdating = False
Set s1 = Sheets("75 GÜN VADELİ TEKLİF")
s2 = [A7].Value
Sheets(s2).Select
    Columns("H:H").Insert Shift:=xlToRight
    Columns("I:I").Copy
    Columns("H:H").PasteSpecial xlPasteFormats
    [H1].Value = Date
    [H2].Value = [I2].Value
For i = 17 To 41
    For k = 4 To Sheets(s2).[A65536].End(3).Row
        If s1.Cells(i, 2).Value = Sheets(s2).Cells(k, 1).Value Then Sheets(s2).Cells(k, 8).Value = s1.Cells(i, 12).Value
    Next
Next
Sheets(s2).[H1].Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
MsgBox "Aktarma İşlemi Tamamlandı.", , "dEdE İyi günler diler..."
End Sub

 

[POLARIS]

Sayın dEdE Günaydın,
Öncelikle ilgileriniz ve yardımlarınız için çok teşekkür ederim.
Tek bir sorun haricinde tam da istediğim gibi oldu.
Sorun şu,75 GÜN VADELİ TEKLİF Sayfasında teklif verilen ürünlerin ilgili Otel'e kaydederken KOD
numarasına göre olması gerekiyor.(Yılda yaklaşık 24 teklif veriliyor.Yeni bir teklif verilirken daha önce aynı ürüne verilen fiyatları görebilmek için.)
Tekrar teşekkür eder iyi çalışmalar dilerim...

 

[dEdE]

...Sorun şu,75 GÜN VADELİ TEKLİF Sayfasında teklif verilen ürünlerin ilgili Otel'e kaydederken KOD numarasına göre olması gerekiyor.(Yılda yaklaşık 24 teklif veriliyor.Yeni bir teklif verilirken daha önce aynı ürüne verilen fiyatları görebilmek için.)...

Merhaba,
Zaten sizin söylediğiniz gibi yapıyor. Sorunu anlayamadım. Örneğin, 75 GÜN VADELİ TEKLİF Sayfasında 8.sırada yer alan 62500 kodlu ürünü ilgili otele kaydederken en son satırdaki 62500 koduna aktarıyor.
Eğer örneğinizdeki,75 GÜN VADELİ TEKLİF Sayfasında yer alan mükerrer kayıtların (2 ve 12 kodlu ürünler) tek olarak aktarılmasından söz ediyorsanız, bu normaldir. Çünkü aynı ürüne aynı teklifte iki ayrı fiyat verilmemesi gerekir.

Özetle;"..kaydederken KOD numarasına göre olması gerekiyor.." anlaşılmadı.

Hoşçakalın.

 

[POLARIS]

Sayın dEdE Tekrar Günaydın,
Direk ilk satırlara baktığım için yanılmışım.Dikkatsizliğim için özür dilerim.
Bir de anlamam açısından aynı işlemi 60 GÜN ve 45 GÜN için nasıl yapıyoruz.
Ben uğraştım ancak beceremedim.
Çok güzel oldu.Yardımlarınız için Tekrar çok teşekkür ederim.Kendinize iyi bakın.
Hoşçakalınız...

 

[dEdE]

Bir de anlamam açısından aynı işlemi 60 GÜN ve 45 GÜN için nasıl yapıyoruz.

Merhaba,
Aslında bir kelimelik değişiklik yeterli ama ürün kodu ve birim fiyatlar aynı sütunda olmalı. Örneğin 75 gün vadelide kod B diğerlerinde C sütunun da, birim fiyatlar da aynı şekilde farklı sütunlarda. Eğer hepsi sütunda olursa kodun 3. satırını aşağıdaki şekilde değiştirip, düğmelere aynı makroyu atamanız yeterli.

Set s1 = Sheets(ActiveSheet.Name)

Eğer sütunları değiştirmek mümkün değilse birkaç değişiklik yapmak ve ayrı bir makro oluşturmak gerekiyor. Ona da ancak akşam bakabilirim.
Hoşçakalın.

 

[POLARIS]

Sayın dEdE Merhaba,

60 - 45 GÜN VADELİ Sütunları aynı olacak şekilde ayarladım.Kodu'da belirttiğiniz gibi yazdım.Ancak nasıl becerdiysem ilgili otelin sayfasına değilde kendi sayfasında (60 GÜN VADELİ TEKLİF)H:H Sütunu açıyor.İçeriği de boş kalıyor.İlgili sayfaya ise sütun kaydığı için farklı yazıyor.
İlgileriniz için teşekkür eder iyi çalışmalar dilerim.

 

[POLARIS]

Sayın dEdE İyi akşamlar,
Uzun uzun uğraştıktan sonra nihayet ...
Çok güzel oldu.Yardımlarınız için Tekrar çok teşekkür ederim.Kendinize iyi bakın.
Hoşçakalınız...

 

[dEdE]

Merhaba,
Ben de bu akşam bakacaktım. Siz çözödüğünüze göre sorun kalmadı.
Güle güle kullanın.