ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[Murat OSMA]

Ben de emin olamadım. Ben miyim ki?

Hoş geldin Erkan abi.

[ykarapanca]

KAGIT_STOK_TAKİBİ.zip

merhabalar,

Aşağıdaki kodu yazdığım zaman, ilk önce değişiklik olan hücrenin yanındaki hücrenin değerini veriyor. fakat, bir alttaki hücrenin değeri değişince, bir üstteki hücre ile birlikte veriyor. bu böyle aşağıya doğru indikçe ; 1 hücre, 2 hücre, 3 hücre .. şeklinde çıktısı oluyor. Eğer bir hücre değişiyorsa 1, iki hücre değişiyorsa 2 adet log kaydı olmasını istiyorum. nasıl düzeltebilrim sizce arkadaşlar?

Kod: Tümünü seç

Private EskiDeger As Variant
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 8 And Target.Row > 5 Then
       
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Excel.Range)

Sheets("CIKIS").Range("G" & Sheets("CIKIS").Range("G65536").End(3).Row + 1) = Target.Offset(0, -1).Value
End Sub




[judlas]

Dosyanıza log adında bir sayfa ekleyin. Module kodu:

Kod: Tümünü seç

Public eski_deger$

ThisWorkbook kodu:

Kod: Tümünü seç

Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    eski_deger = Target.Text
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Text <> eski_deger And Sh.Name <> "log" Then
        With ThisWorkbook.Sheets("log")
            satir = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
            .Cells(satir, 1) = Format(Now, "dd.mm.yyyy")
            .Cells(satir, 2) = Format(Now, "hh:mm")
            .Cells(satir, 3) = Sh.Name & "!" & Target.Address(0, 0)
            .Hyperlinks.Add .Cells(satir, 3), "", "=" & .Cells(satir, 3)
            .Cells(satir, 4) = eski_deger
            .Cells(satir, 5) = Target.Text
            .Cells(satir, 6) = Environ("UserName")
        End With
    End If
End Sub

Log sayfası kod sayfasına ve ThisWorkbook kod sayfasına ekleyip denemek istediğimde Excel hata verip kapanıyor.

[judlas]

merhaba

aşağıdaki kod düzeneğinde bir sayfada bir hücrede yazdığım veriyi log sayfasında gösteriyor fakat o hücredeki bir önceki değeri de log sayfasında bir yan satırada yazmasını istiyorum. bilgi ve yardımlarınızı rica ederim

"log" çalışma sayfasında, değişen çalışma sayfası ve değişen hücreyi ayırmak mümkün müdür? "log" da ilgili hücreye tıkladığımda veya çalışma sayfasına tıkladığımda o hücreye gidecek şekilde.

"Workbook_SheetChange" kodlarını aşağıdaki şekilde güncelleyin.

Kod: Tümünü seç

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Text <> eski_deger And Sh.Name <> "log" Then
        With ThisWorkbook.Sheets("log")
            satir = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
            .Cells(satir, 1) = Format(Now, "dd.mm.yyyy")
            .Cells(satir, 2) = Format(Now, "hh:mm")
            .Cells(satir, 3) = Sh.Name
            .Hyperlinks.Add .Cells(satir, 3), "", "=" & .Cells(satir, 3) & "!" & Target.Address(0, 0)
            .Cells(satir, 4) = Target.Address(0, 0)
            .Hyperlinks.Add .Cells(satir, 4), "", "=" & .Cells(satir, 3) & "!" & .Cells(satir, 4)
            .Cells(satir, 5) = eski_deger
            .Cells(satir, 6) = Target.Text
            .Cells(satir, 7) = Environ("UserName")
        End With
    End If
End Sub

[judlas]

".Cells(satir, 5) = eski_deger" bu kod aslında bu işlemi yapıyor olması gerekiyor ama nedense hücredeki eski değeri log sheetinde 5. sütunda yazmıyor

[Feyzullah]

".Cells(satir, 5) = eski_deger" bu kod aslında bu işlemi yapıyor olması gerekiyor ama nedense hücredeki eski değeri log sheetinde 5. sütunda yazmıyor

Merhaba, sayfanız da kod bölümüne makro için bir tane modül ekleyin ve aşağıdaki yazın.

Kod: Tümünü seç

Public eski_deger$

[ACO]

Merhaba foruma yeni üye oldum.
excelde döviz kurları ile ilgili bir çalışma yapıyorum. ykb nin sitesinden döviz kurlarını webden veri al ile excel sayfasında 1 dakikada bir güncellettiriyorum. ancak benim istediğim kurlar her güncellendiğinde yan taraftaki sütunlarda kaydetsin. örneğin şu an hücredeki döviz alış kuru 5,6789 ve 1 dk sonra webden yeni kur kopyalanınca 5,1234 oldu. 1 dk sonra 5,2468 oldu. bu değişiklikleri bir sütundaki hücrelere alt alta sırayla hücre1: 5,6789 hücre2: 5,1234 hücre3: 5,2468 ve bu böyle devam etsin. ekte ilgili excel dosyasını paylaşıyorum. Yapmak istediğim bu mantıkla webden 1 dakikada bir veri kopyalandıkça: Usd Alış kuru C64'e Usd satış kuru D64'e Eur alış kuru C65'e satış kuru D65'e Altın alış kuru C66'ya satış kuru D66'ya dakikada bir otomatik kopyalanıyor. bu kurlar her güncellendiğinde Usd Alış kuru J3'e Usd satış kuru K3'e Eur alış kuru L3'e satış kuru M3'e Altın alış kuru N3'e satış kuru O3'e yapıştırsın. 1 dakika sonra güncellenen kurları bu sefer J4/K4/L4/M4/N4/O4 e yapıştırsın. 1 dakika sonra güncellenince J5/K5/L5/M5/N5/O5 e yapıştırsın. ve 3 satırındaki 4 satırındaki bilgiler değişmeden kalsın. bu düzen böyle sütunlarda aşağı doğru sayfa güncellendikçe devam etsin. bayağı detaylı yazdım, sanırım makro kurulması gerekiyor. merakla yardımlarınızı bekliyorum. değerli katkılarınız için şimdiden teşekkür ederim. yapabilirsek çok faydalı olacak.

[judlas]

".Cells(satir, 5) = eski_deger" bu kod aslında bu işlemi yapıyor olması gerekiyor ama nedense hücredeki eski değeri log sheetinde 5. sütunda yazmıyor

Merhaba, sayfanız da kod bölümüne makro için bir tane modül ekleyin ve aşağıdaki yazın.

Kod: Tümünü seç

Public eski_deger$

hocam zaten log sayfasının kod bölümünde bu kod var. başka bir modülede ekledim ama yine eski değeri getirmiyor.

[Feyzullah]

Log sayfasının kod bölümü boş olacaktır. Thisworkbook ile modüle yazaksınız sadece.

[judlas]

Log sayfasının kod bölümü boş olacaktır. Thisworkbook ile modüle yazaksınız sadece.

log sayfasındaki o koduda kaldırdım modüle altında bu kod yazılı ama yine değişen bir şey olmadı

[muhittinemmi]

Kod: Tümünü seç

Private Sub Workbook_Open()
    Set log = New Excel.Application
    log.Visible = False
    log.Workbooks.Open ThisWorkbook.Path & "\log.xlsx"
End Sub
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    eski_deger = Target.Text
End Sub
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Text <> eski_deger Then
        With log.Workbooks("log.xlsx").Sheets(1)
            satir = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
            .Cells(satir, 1) = Format(Now, "dd.mm.yyyy")
            .Cells(satir, 2) = Format(Now, "hh:mm")
            .Cells(satir, 3) = Sh.Name & "!" & Target.Address(0, 0)
            .Cells(satir, 4) = eski_deger
            .Cells(satir, 5) = Target.Text
            .Cells(satir, 6) = Environ("UserName")
        End With
    End If
End Sub
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    log.Workbooks("log.xlsx").Close True
    log.Quit
End Sub


Öncelikle bunu düşünüp yapan ve geliştirenler çok güzel iş çıkarmış tebrik ederim.

.Cells(satir, 6) = Environ("UserName") Bu değişiklik yapan bilgisayarın oturum kullanıcı adını yazıyor.

Örnek olarak ağda 15 bilgisayar var bu dosyada değişiklik yapabilen 5 bilgisayar var bazılarının oturum kullanıcı isimleri aynı fakat ağ kullanıcı adları x1 , x2, x3, x4, x5 ise, ağ kullanıcı ismini ve mac adresi veya local ip adresini yazdırmak için ne yapmak lazım gelir.

[Enes Recep BAĞ]

Kod: Tümünü seç

.Cells(satir, 6) = Environ("UserName")

bu satırı;

Kod: Tümünü seç

.Cells(satir, 6) = strMsg

yazın.
Ayrıca, modül veya userform hangisindeyse kodlarınız, uygun bir alana aşağıdaki kodları yazıp deneyin.

Kod: Tümünü seç

Sub local_ip()
strMsg = Empty
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled = 'True'")
    For Each IPConfig In IPConfigSet
        If Not IsNull(IPConfig.IPAddress) Then
            For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
                If Not InStr(IPConfig.IPAddress(i), ":") > 0 Then
                    strMsg = strMsg & IPConfig.IPAddress(i) & vbCrLf
                End If
            Next
        End If
    Next
End Sub

[muhittinemmi]

Kod: Tümünü seç

.Cells(satir, 6) = Environ("UserName")

bu satırı;

Kod: Tümünü seç

.Cells(satir, 6) = strMsg

yazın.
Ayrıca, modül veya userform hangisindeyse kodlarınız, uygun bir alana aşağıdaki kodları yazıp deneyin.

Kod: Tümünü seç

Sub local_ip()
strMsg = Empty
    strComputer = "."
    Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
    Set IPConfigSet = objWMIService.ExecQuery("Select IPAddress from Win32_NetworkAdapterConfiguration where IPEnabled = 'True'")
    For Each IPConfig In IPConfigSet
        If Not IsNull(IPConfig.IPAddress) Then
            For i = LBound(IPConfig.IPAddress) To UBound(IPConfig.IPAddress)
                If Not InStr(IPConfig.IPAddress(i), ":") > 0 Then
                    strMsg = strMsg & IPConfig.IPAddress(i) & vbCrLf
                End If
            Next
        End If
    Next
End Sub

Enes bey herhangi bir hata vermiyor lakin herhangi bir sonuçta çıkmıyor 6. sutun boş çıkıyor.

[askmadige34]

Kodları Thisworkbook kısmına değil module yazın.

[muhittinemmi]

olmadı biryerde sanırım bir yerde eksiklik yapıyorum.

[farukfar]

Bu konu bana ilham kaynağı oldu ve ben biraz "log" kaydını güncelledim, bir tek eksiği kaldı diye düşünüyorum, dolu hücre silindiği zaman durumunu="sildi." yapamadım;

Boş hücreye veri girişinde durum="yazdı."
Dolu hücredeki veri değişince durum="olarak değiştirdi."
Dolu hücredeki veri silinince durum="sildi." ; yapamadım

Umarım faydalı olur iyi forumlar.

Log Kaydı.rar

[Feyzullah]

Bu konu bana ilham kaynağı oldu ve ben biraz "log" kaydını güncelledim, bir tek eksiği kaldı diye düşünüyorum, dolu hücre silindiği zaman durumunu="sildi." yapamadım;

Boş hücreye veri girişinde durum="yazdı."
Dolu hücredeki veri değişince durum="olarak değiştirdi."
Dolu hücredeki veri silinince durum="sildi." ; yapamadım

Umarım faydalı olur iyi forumlar.

Log Kaydı.rar

BuÇalışmaKitabı kod bölümünde Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) kodunun hemen alt satırına aşağıdaki kodu yazmanız yeterlidir.

Kod: Tümünü seç

If IsEmpty(Target.Value) Then Durum = "sildi" 

[farukfar]

BuÇalışmaKitabı kod bölümünde Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) kodunun hemen alt satırına aşağıdaki kodu yazmanız yeterlidir.

Kod: Tümünü seç

If IsEmpty(Target.Value) Then Durum = "sildi" 

Teşekkürler @Feyzullah şimdi güzel oldu.

[Feyzullah]

BuÇalışmaKitabı kod bölümünde Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range) kodunun hemen alt satırına aşağıdaki kodu yazmanız yeterlidir.

Kod: Tümünü seç

If IsEmpty(Target.Value) Then Durum = "sildi"  

Teşekkürler @Feyzullah şimdi güzel oldu.

İyi çalışmalar.

[mikrenos]

Merhaba,
@MuratOSMA (time slot)ve @Faruk AKARÇAY ın hazırladığı(log) excellerde çalışan makroları birleştimek istiyorum ancak ThisWorkBookta bulunan kodları birleştiremedim. Ekte iki dosya mevcut.
Birde Log kaydı yapan makro çoklu hücre silinmesi sonrası log kaydı girmiyor. Bu konuda da yardımcı olabilir misiniz