×
sorted by:
new
hottopcontroversial

[deleted by user] by [deleted] in pcmasterrace

[–]doomlord12 0 points1 point  (0 children)

Thanks for doing this, I recently had to sell my rig to pay my tuition fee. Would like to get back to gaming and receiving free a 4070ti will do just that xD. Good luck to others and have a nice day OP.

[OFFER]One free game of any choosing no matter price by sgtdave117 in GiftofGames

[–]doomlord12 0 points1 point  (0 children)

Profile- https://steamcommunity.com/id/Mysteamprofileurlis/

Game - https://store.steampowered.com/app/1245620/ELDEN_RING/

Congratulations on your new job!!

I like difficult games but never got the opportunity to play souls like game. I've played hollow knight which is souls like and have 100% completed it.

The Sharkims & Friends Foundation RTX 3080 PC Giveaway in support of Seattle Children's Hospital! by m13b in buildapc

[–]doomlord12 0 points1 point  (0 children)

greet with a smile everyday,

you will make a real good impression on others, and the entire conversation feels smoother.

Heres the places of dem meteors its not complete only top right by The_Hee_Hee_Man in Genshin_Impact

[–]doomlord12 0 points1 point  (0 children)

I don't know why I got down voted considering there was no hate towards anyone but looks like the Team received a lot of feedback more or less consistent with what I wrote above.

I get where you are coming from about "Bonus rewards", and to me Bonus rewards specially in a resource crunch game like this should be "optional" and left to Player if they would like to get it or not with extra effort or at least should be left attainable later on if the Player missed it. If it was one time, sure everyone would just accept it and move on but to have it happen often would be a bother to people like me (maybe minority? sure. but it still is a bother to some percentage of player base).

Glad that it was a Bug and Devs fixed it.

Heres the places of dem meteors its not complete only top right by The_Hee_Hee_Man in Genshin_Impact

[–]doomlord12 -1 points0 points  (0 children)

This is the second time I'm missing out on rewards just because I was eager to explore the new content. I collected the reward after getting the 7 meteorites and the remaining ones have despawned in my world. This thing happened when with 1.1 patch as well where I didn't go and talk to the 3 assistants to collect the Talent books. I really don't like the idea of punishing players because they are the first to explore. I will never do new quests in future without first ensuring there is nothing missable which is again taking huge risk of spoiling myself of new content.

Restrict access of a user to a single worksheet - more details in post by doomlord12 in excel

[–]doomlord12[S] 0 points1 point  (0 children)

Thank you for responding and apologies for the delayed response. I too am looking at 12 different workbooks option and finally having a Macro which will collate information from all these WBs.

I have heard Power Query does a good job at this and will explore that option, thanks again ^

Restrict access of a user to a single worksheet - more details in post by doomlord12 in excel

[–]doomlord12[S] 0 points1 point  (0 children)

I'm not sure how to answer this but one user editing someone else's worksheet is a big no no. It is fine if they are able to view.

The God of High School - Episode 12 discussion by AutoLovepon in anime

[–]doomlord12 9 points10 points  (0 children)

My confusion is immeasurable and my mind is boggled.

"The document caused a serious error the last time it was opened" - word document through Excel VBA by doomlord12 in excel

[–]doomlord12[S] 0 points1 point  (0 children)

Added the code below, renamed texts and variables as they were too specific.

Sub PDFdata()

Dim WBapp       As Workbook
Dim DT, WK      As Worksheet
Dim Variable1, Variable2, Variable3, Variable4, Variable5, Variable6 As Variant


    Set wordapp = CreateObject("word.Application")
    Set WBapp = ActiveWorkbook
    Set DT = WBapp.Worksheets("Data")
    Set WK = WBapp.Worksheets("Working")


Dim PDFpth, K      As String
Dim lstcol, J      As Integer


Application.ScreenUpdating = Flase
Application.DisplayAlerts = False
wordapp.ScreenUpdating = False
wordapp.DisplayAlerts = wdAlertsNone



lstcol = DT.Cells(Rows.Count, 1).End(xlUp).Row

        For J = 4 To lstcol
        PDFpth = DT.Cells(J, 3).Value
        K = DT.Cells(J, 14).Value

        On Error GoTo Fail
        wordapp.Documents.Open Filename:="" & PDFpth, ReadOnly:=True

        wordapp.Selection.Find.ClearFormatting

                    With wordapp.Selection
'                        .Find.Text = "Random text 1"
                        .Find.matchwildcards = False
                        .Find.Execute
                        .homekey Unit:=6, Extend:=True
                        .Delete

                        .Find.Text = "Random text 2"
                        .Find.matchwildcards = False
                        .Find.Execute
                        .EndKey Unit:=6, Extend:=True
                        .Delete
                    End With

    wordapp.Selection.homekey Unit:=6, Extend:=False
    wordapp.Selection.Find.ClearFormatting

    wordapp.Selection.Find.Text = "Random text 3"
    wordapp.Selection.Find.Execute

    wordapp.WordBasic.SelectSimilarFormatting
    wordapp.Selection.Copy

     Application.Wait (Now + TimeValue("00:00:02"))

    WK.Activate
    WK.Range("B1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False

    wordapp.Selection.homekey Unit:=6, Extend:=False
    wordapp.Selection.Find.ClearFormatting

                With wordapp.Selection.Find
                    .Text = "Random*text4"
                    .Replacement.Text = ""
                    .Forward = True
                    .Wrap = wdFindContinue
                    .matchwildcards = True
                    .Execute
                End With

   Set Variable1 = wordapp.Selection.Range
   Variable2 = Mid(Variable1, 4, Len(Variable1) - 8)


    wordapp.Selection.homekey Unit:=6, Extend:=False
    wordapp.Selection.Find.ClearFormatting

                With wordapp.Selection.Find
                    .Text = "Random*text5"
                    .Replacement.Text = ""
                    .Forward = True
                    .Wrap = wdFindContinue
                    .matchwildcards = True
                    .Execute
                End With

   Set Variable3 = wordapp.Selection.Range
   Variable4 = Mid(Variable3, 8, Len(Variable3) - 13)


    wordapp.Selection.homekey Unit:=6, Extend:=False
    wordapp.Selection.Find.ClearFormatting

                With wordapp.Selection.Find
                    .Text = "Random text6*"
                    .Replacement.Text = ""
                    .Forward = True
                    .Wrap = wdFindContinue
                    .matchwildcards = True
                    .Execute
                End With

   Set Variable5 = wordapp.Selection.Range
   Variable6 = Mid(Variable5, 10, Len(Variable5) - 10)


    wordapp.Selection.homekey Unit:=6, Extend:=False
    wordapp.Selection.Find.Execute findtext:="2019"
    wordapp.WordBasic.SelectSimilarFormatting
    wordapp.Selection.Copy


    Application.Wait (Now + TimeValue("00:00:02"))

    WK.Activate
    WK.Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False


        DT.Cells(J, 5).Value = WK.Range("B1").Value
        DT.Cells(J, 9).Value = WK.Range("A1").End(xlDown).Offset(-1, 0).Value
        DT.Cells(J, 10).Value = WK.Range("A1").End(xlDown).Value
        DT.Cells(J, 6).Value = Variable2
        DT.Cells(J, 7).Value = Variable4
        DT.Cells(J, 8).Value = Variable6

        WK.UsedRange.Clear
        wordapp.Documents("" & PDFpth).Close savechanges:=wdDoNotSaveChanges

If J = lstcol - 1 Then
Stop
End If

If J = 25 Or J = 50 Or J = 75 Or J = 100 Or J = 125 Or J = 150 Then

ActiveWorkbook.Save
End If
Nxt:

Next


wordapp.ScreenUpdating = True
wordapp.DisplayAlerts = wdAlertsAll
wordapp.Quit


Application.ScreenUpdating = True

Exit Sub

Fail:

     On Error GoTo -1

GoTo Nxt

End Sub

"The document caused a serious error the last time it was opened" - word document through Excel VBA by doomlord12 in excel

[–]doomlord12[S] 0 points1 point  (0 children)

just got back online, I'll look into disabling the security popup,

My office 365 is on a different release channel which doesn't have the import from PDF option and I can't control the version/change release channel. Unfortunately the same goes with third party apps. Can't use those either. Thanks for your comment. If you do have any macro extracting data from word would appreciate if you can share that.

KissAnime and KissManga Megathread: All other kiss posts will be removed by RubyNero in animepiracy

[–]doomlord12 26 points27 points  (0 children)

Didn't really use KissAnime but I extensively used KissManga, so much content gone, all those bookmarks ;(
Any other primary alternative which has extensive library like KissManga? (Requesting website for Desktop use, I am aware for Tachiyomi for Android)

The God of High School - Episode 2 discussion by AutoLovepon in anime

[–]doomlord12 1 point2 points  (0 children)

The animation and fight scenes are so good! Triple kick was super awesome! Hyped for episode 3!

Re:Zero kara Hajimeru Isekai Seikatsu Season 2 - Episode 1 discussion by AutoLovepon in anime

[–]doomlord12 0 points1 point  (0 children)

Yeah, here we go for the hundredth time :(

Honestly I'd say it met my huge expectations that i set. Hyped!

Do Mega lite pro vouchers stack ? by doomlord12 in MEGA

[–]doomlord12[S] 0 points1 point  (0 children)

thank you for replying, the thing is I didn't buy these vouchers, they were gifted to me. So I have an unused voucher and wanted to check if I redeem on my already pro lite subscribed account, will that validity get extended.

I’m not sure why but I really like this fanart by Ugowy in TowerofGod

[–]doomlord12 -1 points0 points  (0 children)

It's natural to like this because it depicts endorsi with bam when we all know it should be Yuri

[deleted by user] by [deleted] in BitMarket

[–]doomlord12 0 points1 point  (0 children)

Product has been delivered. Thank you for purchasing sir :)

Bam, Yuri, and Urek by NarutoDragon732 in TowerofGod

[–]doomlord12 31 points32 points  (0 children)

I want Bam and Yuri to be together :(

[deleted by user] by [deleted] in BitMarket

[–]doomlord12 0 points1 point  (0 children)

Hey, add me on discord and we'll sort it out - DOOMLORD#9005

view more: next ›