Çözüldü tek tıkla 2 farklı kapalı çalışma kitabına kayıt

Arkadaşlar anlaşılır bir şekilde ifade edememişmiyim ?
Öyle Bir durum var ise Kusuruma bakmayın. yeniden açılım yazabilirim.

HTML:

buradaki listbox1 den seçilen çalışma kitabını ( Label243 ) de yazan seçtirmek için kodu nasıl uyarlayabiliriz. egerki label olmaz ise Textbox da olur

Eklemiş oldugum zip dosyasında içerisindeki Ravizyon Teklifler ( userformunda) yer alan listbox1 de çıkarılan teklifler yer almakta ,
Listbox1 den *.xlsm çalışma sayfasını tıkladıgımızda Sagda Vulunan label243 de cari kayıt adı çıkmakta..
çıkan Cari Kayıt adı : CARİLER klasörü içerisinde mevcut ..
yani : Borçlandır dediğimizde ; Label243 deki cariyi , CARİLER klasörü içerisinde bulacak acacak, cari sayfasındaki A16. satırdan sonraki ilk boş satıra kayıt yapacak. ( borçlandırma )

Kolay gelsin Cümleten.. Teşekkürler..

Yukarıda yazılı işlemden sonra gelecek işlem : Listbox1 den seçili teklif sayfasınını acacak, revizyon hesap Sayfasındaki C12 ve C13 nolu hücreleri güncelleyecek , G12 ye Textbox12 deki Tarihi yazacak sayfayı kayıt edip kapatacak.
G12 Ve G13 Deki verilerin güncellemesi için
ComboBox2.Value = "Anlaşıldı"
ComboBox3.Value = "Sıraya Alındı"

şeklinde ayarlama yapmıştım...

Teşekkür edeiyorum.

Hunkar50' Alıntı:

Listbox1 den *.xlsm çalışma sayfasını tıkladıgımızda Sagda Vulunan label243 de cari kayıt adı çıkmakta..
çıkan Cari Kayıt adı : CARİLER klasörü içerisinde mevcut ..

Genişletmek için tıkla...

Yıl 2023 seçtiğimde listbox1'de HAYDAR APT çıkmakta.
Label243'te ise İBRAHİM BEY yazmakta.
CARİLER klasöründe ise böyle bir dosya yok.

Balta' Alıntı:

Yıl 2023 seçtiğimde listbox1'de HAYDAR APT çıkmakta.
Label243'te ise İBRAHİM BEY yazmakta.
CARİLER klasöründe ise böyle bir dosya yok.
Ekli dosyayı görüntüle 11798
Ekli dosyayı görüntüle 11799

Genişletmek için tıkla...

Hocam carileri Çok Kurcaladığım için ekle sil vs. 2023 İçerisini Silmeyi Unutmuşum kb...
dosyayı yeniden düzenledim ve ekliyorum.. Teşekkür ederim..

Borçlandır butonuna basıldığında;
HTML: kodları ile A,D,G,I,J sütunlarına verinin nereden geleceği tanımlı.
Fakat;

B,C,E,F,H sütunları nereden veri alacak?

Balta' Alıntı:

Borçlandır butonuna basıldığında;
HTML:

Kod: Kodları Kopyala

İçeriği görebilmek için Giriş yap ya da Üye ol.

kodları ile A,D,G,I,J sütunlarına verinin nereden geleceği tanımlı.
Fakat;
Ekli dosyayı görüntüle 11809
B,C,E,F,H sütunları nereden veri alacak?

Genişletmek için tıkla...

Hocam Tem İşleri Ayrı Sutunlara kayıt ediyorum..

B satırı boş kalacak..Bakım işleminde borçlandırma yapıyor
C satırı parca işleminde kayıt yapıyor
E satırına Tahsilat yapıldıgında kayıt yapıyor
F satırı yeni cari oluşturdugumda veya sene sonu devir işleminde kayıt yapıyor.
H satırı kodu : =EĞER(G17="";"";TOPLA($B$17:B17)+TOPLA($C$17:C17)+TOPLA($D$1717)+TOPLA($F$17:F17)-TOPLA($E$17:E17))
yukarıda ki kod sıralı sutunda sırası ile kayıtlı zaten.
(tarih formatı tl formatına cevirrim )

G satırı hangi işlem yapılırsa yapılsın, yapılan işlemin kayıt tarihi ...


D satırına ( şu an ugraştıgımız userform) kayıt Yapacak..
D satır işlemi : şu an ugraştıgımız ..

a = sıra no verecek..
b = boş
c = boş
d = Revizyon Teklif / Revizyon Tekliflerdeki bulunan Textbox14 ü yazacak.
e = boş
f = boş
g = Revizyon Teklif / Revizyon Tekliflerdeki bulunan Textbox2 yi yazacak.
I & J = Revizyon Teklif / Revizyon Tekliflerdeki bulunan Label249 & " Yapım işi " ibaresini yazacak

Combobox2 = C12 Ye
Combobox3 = C13 e yazacak

umarım anlatımım başarılıdır Hocam..

Yani Tanımlı olanları yapacagız hocam

Hunkar50' Alıntı:

Combobox2 = C12 Ye
Combobox3 = C13 e yazacak

Genişletmek için tıkla...

bundan emin misiniz? Çünkü kapalı dosyadaki durum aşağıdaki gibi.

Yoksa Revizyon Teklif.xlsm'deki revizyon hesap sayfasına mı yazılacak?

Balta' Alıntı:

bundan emin misiniz? Çünkü kapalı dosyadaki durum aşağıdaki gibi.
Ekli dosyayı görüntüle 11810
Yoksa Revizyon Teklif.xlsm'deki revizyon hesap sayfasına mı yazılacak?
Ekli dosyayı görüntüle 11812

Genişletmek için tıkla...

Dogru söyliyorsunuz hocam.
combobox2 ve 3 ü
revizyon teklif sayfasına yazacak.
kusuruma bakmayın hocam ugraşmaktan beynim yandı.

Carilerdeki müşteri sayfasına sadece borçlandırma işlemlerini yapacak..

durum ve genel durum : revizyon teklif sayfasında yapacak.

Deneyiniz.

Ustadım elinize Saglık.
Borçlandırmayı tam istediğim şekilde yapıyor.
Combobox2 ve 3 ü = Anlaşıldı ve Sıraya Alındı İbaresini Mevcut Açık Olan revizyon Teklif Sayfasına Yapıyor.
Combobox2 ve 3 ü Kapalı Label245 e de bulunan binanin Revizyon Hesap Sayfasına yapması gerekiyor.

HESAP TAKİP\CARiLER\Excelcozum apt.xlsm ye borçlandırma yapacak ( şu an yaptınız harika oldu , Çalışıyor )<<< Sorun yok şu an

HESAP TAKİP\REVİZYON\2022\Excelcozum apt 1.xlsm deki revizyon hesap sayfasına : combobox2 yi C12 yecombobox3 ü C13 e yazması gerekiyor


Böylelikle Revizyon Teklif Sayfasında Bulunan 2022 adlı sayfadan takip edebileyim..

Elinize emeğinize saglık...

Hocam elinize saglık.. Ufak Bir değişim Yaptım ; yalnız comboboxdan 2022 veya 2023 seçimine göre yol gösteremedim

label üzerinden bagladım ama 2022 yi baz alıyor


kod:
Private Sub CommandButton26_Click()
On Error Resume Next

git = Left(ThisWorkbook.Path, Len(ThisWorkbook.Path) - 8) & "REVİZYON\2022\"
gitdsy = Label245.Caption & ".xlsm"
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Workbooks.Open yol

Workbooks.Open git & "/" & gitdsy
ComboBox2.Value = "Anlaşıldı"
ComboBox3.Value = "Sıraya Alındı"
With Sheets("revizyon hesap")
.Range("C12") = ComboBox2.Value
.Range("C13") = ComboBox3.Value
.Range("G10") = ComboBox5.Value
.Range("G12") = CDate(Me.TextBox2.Value)
End With
ThisWorkbook.Save
ActiveWorkbook.Close True
'________________________________________________________________________________________________ Buradan yukarısında değişim yaptım

yol = Left(ThisWorkbook.Path, Len(ThisWorkbook.Path) - 8) & "Cariler"
dsy = Label243.Caption & ".xlsm"
Workbooks.Open yol & "/" & dsy
Sheets("cari").Select
ss = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row + 1
If ss < 17 Then ss = 17
ActiveSheet.Cells(ss, "A").Value = ss - 16
ActiveSheet.Cells(ss, "G").Value = CDate(Me.TextBox2.Value)
ActiveSheet.Cells(ss, "G").NumberFormat = "dd.mm.yyyy"
ActiveSheet.Cells(ss, "D").Value = Me.TextBox14.Value
ActiveSheet.Cells(ss, "I").Value = Me.Label245 & ":" & Label249 & " Revizyon işi "
ActiveSheet.Range("I" & ss & ":j" & ss).Merge
ActiveSheet.Range("I" & ss & ":j" & ss).WrapText = True
ActiveWorkbook.Close True
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "Borçlandırma yapıldı.", vbInformation, "ExcelCozum.com"
End Sub

Hocam Elinize emeginize saglık... Teşekkür ediyorum.