ilgili verilerin diğer sayfalara dağıtımı

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

ilgili verilerin diğer sayfalara dağıtımı

İleti#1)  imyourfate » 28 Kas 2019 22:17

Arkadaşlar öncelikle iyi akşamlar diler ve bir konuda yardımınızı rica ederim.
Ekli dosyada rezervasyon sekmesinde yer alan dataların ilgili diğer sekmelere dağıtımını yapmak istiyorum mevcut bir kod kullanıyorum ve bu verileri tek sayfaya dağıtabiliyorum fakat Rezervasyon sekmesi D sütünunda yer alan kodlara göre diğer sekmelere dağıtılması gerekiyor bu diğer sekmedede gideceği adres Rezervasyon sekmesi E sütununda yazan acenta koduna göre.
Aşağıda yer alan koda nasıl bir ekleme yaparak ekli dosya D sütunun da yer alan isme göre ''SPLV'' ilgili diğer sayfaya aktarabiliriz? An itibariyle SPLV sayfasına dağıtabiliyorum
Tekrar teşekkür ederim

Sub Run()

Set R = Sheets("Rezervasyon")
Set F = Sheets("SPLV")
Dim GTR As Date, CTR As Date
FTEMIZ

'Rezer Bak---------------------------------------------------
RS = WorksheetFunction.CountA(R.Range("E7:E65000"))
For I = 1 To RS + 6
ODA = Trim(R.Cells(I + 6, 5).Value)
If ODA = "" Then GoTo DEVAM
If ODA = "JET2HOLIDAYS" Then S = 1: GoTo YAZ
If ODA = "TUI-RUS" Then S = 2: GoTo YAZ
If ODA = "TUI-UA" Then S = 3: GoTo YAZ
If ODA = "ANEX-RUS" Then S = 4: GoTo YAZ
If ODA = "DERTOUR-CZ" Then S = 5: GoTo YAZ
If ODA = "ETS" Then S = 6: GoTo YAZ
If ODA = "HYDRO" Then S = 7: GoTo YAZ
If ODA = "CALLCENTER-TR" Then S = 8: GoTo YAZ
If ODA = "KEYF-AVR" Then S = 9: GoTo YAZ
If ODA = "CIS & MA" Then S = 10: GoTo YAZ
If ODA = "DLX" Then S = 11: GoTo YAZ
If ODA = "DLX" Then S = 12: GoTo YAZ
If ODA = "DLX" Then S = 13: GoTo YAZ
If ODA = "DLX" Then S = 14: GoTo YAZ
C = MsgBox(Trim(I + 6) + " Satırda Bilinmeyen Oda Bilgisi...", 56, "Oda Hakkında")
Exit Sub
'------------------------------------------------------------
YAZ:
GTR = Format(R.Cells(I + 6, 6).Value, "dd.mm.yyyy")
CTR = Format(R.Cells(I + 6, 7).Value, "dd.mm.yyyy")

For K = GTR To CTR - 1
A = DatePart("m", K)
G = DatePart("d", K)
X = A * 16 - 12
F.Cells(X + S, G + 2).Value = F.Cells(X + S, G + 2).Value + 1
Next K

DEVAM:
Next I

End Sub


Public Sub FTEMIZ()
Set F = Sheets("SPLV")
For I = 1 To 12
CL = "C" + Trim(I * 16 - 11) + ":AZ" + Trim(I * 16 + 3)
F.Range(CL).ClearContents
Next I
End Sub


Yardımlarınız için şimdiden teşekkür eder hayırlı akşamlar dilerim
Kullanıcı avatarı
imyourfate
Yeni Başlamış
 
Adı Soyadı:Ahmet Şen
Kayıt: 06 Arl 2011 21:32
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya / manavgat

Cevap: ilgili verilerin diğer sayfalara dağıtımı

İleti#2)  imyourfate » 28 Kas 2019 22:27

Dosya eklemek istedim
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
imyourfate
Yeni Başlamış
 
Adı Soyadı:Ahmet Şen
Kayıt: 06 Arl 2011 21:32
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya / manavgat

Cevap: ilgili verilerin diğer sayfalara dağıtımı

İleti#3)  erseldemirel2 » 29 Kas 2019 14:07

Dizi kullandım. Ekte. Module3 çalıştırın inceleyin.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 576
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: ilgili verilerin diğer sayfalara dağıtımı

İleti#4)  imyourfate » 29 Kas 2019 15:06

Merhaba Ersel Bey,
Çok teşekkür ederim makroyu kontrol ettim (modül 3) ve rezervasyon sayfasında bulunan dataları her oda tipi için 1 rezervasyon olarak azalttım lakin aktarım yapmadı sizden geleni çalıştırdığımda oluyor fakat hatalı dağıtım yapıyor. Vaktiniz olursa tekrar bakmanızı rica ederim çok çok teşekkür ederim hayırlı işler dilerim.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
imyourfate
Yeni Başlamış
 
Adı Soyadı:Ahmet Şen
Kayıt: 06 Arl 2011 21:32
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya / manavgat

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: ilgili verilerin diğer sayfalara dağıtımı

İleti#5)  erseldemirel2 » 29 Kas 2019 15:24

Ekledim kontrol edin
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 576
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: ilgili verilerin diğer sayfalara dağıtımı

İleti#6)  imyourfate » 29 Kas 2019 15:39

Sizede zahmet veriyorum lakin tek acentaya dağıtım yapıyor Rezervasyon E sütunu kısmında yer alan tek bir acentaya yazıyor diğerlerini yazmıyor
Kullanıcı avatarı
imyourfate
Yeni Başlamış
 
Adı Soyadı:Ahmet Şen
Kayıt: 06 Arl 2011 21:32
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya / manavgat

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: ilgili verilerin diğer sayfalara dağıtımı

İleti#7)  erseldemirel2 » 29 Kas 2019 15:52

Anladım. Tekrar baştan bakarım
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 576
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: ilgili verilerin diğer sayfalara dağıtımı

İleti#8)  imyourfate » 29 Kas 2019 15:58

Çok teşekkür ederim.

Saygılarımla,
Kullanıcı avatarı
imyourfate
Yeni Başlamış
 
Adı Soyadı:Ahmet Şen
Kayıt: 06 Arl 2011 21:32
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya / manavgat

Cevap: ilgili verilerin diğer sayfalara dağıtımı

İleti#9)  erseldemirel2 » 29 Kas 2019 16:00

Bir adet if ekledim. deneyin. sizde böyle minik operasyonlar yapın. olmadı ıse yıne bakarız
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 576
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya

Cevap: ilgili verilerin diğer sayfalara dağıtımı

İleti#10)  imyourfate » 29 Kas 2019 16:14

Emeğinize sağlık çok teşekkür ederim iyi akşamlar dilerim.
Kullanıcı avatarı
imyourfate
Yeni Başlamış
 
Adı Soyadı:Ahmet Şen
Kayıt: 06 Arl 2011 21:32
İleti: 10
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Antalya / manavgat

Cevap: ilgili verilerin diğer sayfalara dağıtımı

İleti#11)  erseldemirel2 » 29 Kas 2019 16:24

Rica ederim ıı aksamlar
www.erseldemirel.com.tr
Kullanıcı avatarı
erseldemirel2
Site Dostu
 
Kayıt: 31 Oca 2019 12:51
Meslek: Mühendis
Yaş: 35
İleti: 576
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara / Çankaya


Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 0 misafir

cron
Bumerang - Yazarkafe